VBA｜Excel自動添加目錄連結、自動刪除全部超級連結

如下面工作簿，通過VBA自動創建工作表目錄並創建連結，點選連結可以自動跳到對應的工作表。另外創建一個刪除全部連結的過程。

2.1 創建工作表目錄並建立連結

Sub Excel創建工作表目錄並建立連結()

Application.ScreenUpdating = False

On Error Resume Next

Application.DisplayAlerts = False

Sheets("工作表目錄").Delete

Application.DisplayAlerts = True

Sheets.Add(before:=Sheets(1)).Name = "工作表目錄"

Range("A1:B1") = [{"編號","目錄"}]

For i = 2 To Sheets.Count

Cells(i, 1).Value = i - 1

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name, ScreenTip:="按一下打開" & Sheets(i).Name

Next

End Sub

2.2 刪除超級連結

Sub 刪除超級連結()

Dim X

For Each X In ActiveSheet.Hyperlinks

X.Delete

Next x

End Sub

添加和刪除連結是通過工作表物件的Hyperlinks集合物件的Add和delete方法來實現的。Hyperlinks集合物件代表工作表或區域的超級連結集合。