很快的，30天的鐵人賽就要結束，今天整理了前29天的相關資料，原本想說交個Excel檔案了事就好了，就當作這29天的內容總結，但後來還是覺的要教些內容才有意思，既然整理資料，我想就順便教一下如何插入超連結到儲存格中，透過遍歷所有工作表後匯整一份超連結索引表，以便於快速切換。

程式的運作邏輯如下：

遍歷工作表我們之前就有教過，忘記的朋友也沒關係，等一下會再出現。透過遍歷後，對照存放索引的工作表是否有同名，同名則不放超連結，沒有同名，則透過Hyperlinks.Add方法來增加超連結。

程式內容如下：

Sub Day30_Hyperlinks()
    Dim objActSht As Object
    Set objActSht = ActiveSheet
    j = 0
    
    '清除A欄內容
    Columns(1).ClearContents
    
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> objActSht.Name Then
            j = j + 1
            objActSht.Hyperlinks.Add Anchor:=Range("A" & j), Address:="", SubAddress:= _
            Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
        End If
    Next i
End Sub

產生的連結如下：

直接點選連結即可跳到指定工作表。

以下檔案為這30天分享的程式碼，希望各位喜歡，對於有心學習Excel VBA的，可多參考，也歡迎各位提出建議，謝謝！

Excel_VBA的眉眉角角.xls