psi2001 发表于 2009-1-13 14:23

好人修電腦 发表于 2009-1-13 15:01

使用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

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

redwolfs 发表于 2009-1-14 13:40

页: [1]
查看完整版本: Excel的问题