网上有人使用这个添加超链接,但我没测试它。:
Sub 批量添加为超链接()
Application.ScreenUpdating = False
Dim i%
For i = 2 To [F65536].End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 6), Address:=Cells(i, 6), TextToDisplay:=CStr(Cells(i, 6))
Cells(i, 6).Font.Subscript = True
Cells(i, 6).Font.ColorIndex = 5
Next
Application.ScreenUpdating = True
End Sub
自己的方法:
自己针对每个列中的值,判断并添加链接。
对sheet2的对应单元(A2)设置,如
=IF(LEN(TRIM(Sheet1!A2))=0,"",HYPERLINK("../ds_documents/"&Sheet1!A2&".doc",Sheet1!A2))
批量复制程序,拉几下就出来了。