Excel中批量添加超链接

网上有人使用这个添加超链接，但我没测试它。：

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))

批量复制程序，拉几下就出来了。