用VB在EXCEL中循环给单元格的超链接赋值

1、符号“”代表换行连接符，如下由于前一写不下了，需要换一行，但是vb中没有逗号分号的概念，所以就用“”代表下一行与本行相连。

Sub test1()
MsgBox Cells(1, 3).Value

ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), _
Address:=Cells(1, 3).Value
End Sub

ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:=Cells(1, 3).Value
的效果等同于
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), _
Address:=Cells(1, 3).Value

2、用VB在EXCEL中循环给单元格的超链接赋值

Sub test1()
Dim i As Integer
For i = 1 To 13
Cells(i, 2) = i
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Cells(i, 3).Value
Next
End Sub