1.批量创建超链接

a.Excel home 参考版本

Sub Drawing_Hyperlink()
Dim r As Integer, hang As Integer
r = ActiveSheet.UsedRange.Rows.Count
For hang = 2 To r
Cells(hang, "A").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(hang, "B").Value
Application.ScreenUpdating = False
Next hang
End Sub

b.改进版本

Sub Hyperlink()
Dim r As Integer, i As Integer
r = ActiveSheet.UsedRange.Rows.Count
For i = 2 To r
Cells(i,1).Hyperlinks.Add Anchor:=Cells(i,1), Address:=Cells(i, "B").Value
Application.ScreenUpdating = False
Next i
End Sub

2.批量删除超链接

Sub 批量删除超链接()
For i = 2 To 100
Cells(i,1).Hyperlinks.Delete
Next
End Sub