VBA之 遍历工作表获取表名建立超链接()

 

 

Sub 遍历工作表获取表名建立超链接()
    Dim i, sht As Worksheet
    For Each sht In Sheets
        If sht.Name <> "列表" Then
            i = i + 1
            Sheets("列表").Cells(i, 1) = sht.Name
            sht.Hyperlinks.Add Anchor:=Sheets("列表").Cells(i, 1), Address:="", SubAddress:= _
                "'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
            sht.Hyperlinks.Add Anchor:=sht.Cells(1, 1), Address:="", SubAddress:= _
                "列表!A1", TextToDisplay:="返回列表"
        End If
    Next
End Sub