-excel 转换超链接,excel目录批量超链接

excel里面的超链接地址都是会跳转的短地址，百点击完后浏览器会跳转到另一个地址，现在想把跳度转后的地址替换掉原来的超链接地址需要怎么做？地址数量比较多，一次打开太多电脑会卡死有没有解版决办法？ 在网权上找到一个
Sub OpenHprLnks()
Dim i As Integer
On Error Resume Next
For i = 1 To 50
Cells(i, 2).Hyperlinks(1).Follow NewWindow:=True
Next
End Sub
不知道能不能行 现在用的是wps 的excel 是否要换成office的excel？