如何用VBA代码批量给B列,C列添加超链接？

ActiveSheet.Hyperlinks.Add Anchor:=Selection, _

Address:=Selection.Value, _

TextToDisplay:=Selection.Value

这是一个单元格的，循环作用于整体即可。

这个程序是链接到 F\链接 下的工作薄, 不是链接到本工作薄的工作表，

所以你是不可能成功的，

等等给你写个，先占楼

Sub 链接()

i = 2

Do While Range("A" &i).Cells.Text <>""

Range("A" &i).Select

Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" &range("B" &i) &"'!A1"

i = i + 1

Loop

End Sub

---