Excel批量添加超链接

今天同学要帮忙给excel添加超链接，大概十万条数据，网上搜了一下，十分钟搞定，多谢大牛们提供的代码（其实是我自己好渣）。

代码只是添加最简单的链接，复杂的表结构和链接关系的话，在这基础上改就可以了。

Sub link()
    i = 1
    Do While Range("B" & i).Cells.Text <> ""
    Range("B" & i).Select
    Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:=".\链接文件\" & Range("A" & i).Cells.Text & ".docx", _
    TextToDisplay:=Range("B" & i).Cells.Text
    i = i + 1
    Loop

End Sub

要是绝对路径的话Address:="F:\链接文件\" & Range("A" & i).Cells.Text & ".docx"

链接文件夹的话Address:=".\链接文件\" & Range("A" & i).Cells.Text

效果：