Excel的问题

psi2001

有一个Excel文件，里面有一整列都是超链接，这些超链接都是相对路径，如果把Excel文件挪个地方的话这些超链接就失效了。有什么方法能把这些链接全替换成绝对路径？

好人修電腦

使用VBA

Set obj = Worksheets(\"Sheet1\")
temp1 = obj.Range(\"a65536\").End(xlUp).Row

For i = 1 To temp1
    Worksheets(\"Sheet1\").Cells(i, 1).Hyperlink.Address = \"（這裡放相對路徑）\" & Mid(Worksheets(\"Sheet1\").Cells(i, 1).Hyperlink.Address, 截取起始位置)
Next i

我沒試過是否可用，不過估計應該沒問題