1.批量創(chuàng)建超鏈接
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.改進(jìn)版本
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
