macros超链接支持索引和跳过创build索引超链接

我有一个macros，重做由我们的BI工具生成的目录页面。 我这样做的原因是我重新命名和工作表中的所有选项卡。 我正在尝试解决两个问题：

1.我试图跳过为第一张纸张生成的超链接
2.我想在每个其他表单上添加一个超链接（I1），创build超链接回到目录。

Sub listsheets() Dim i As Integer i = 2 Sheets("TOC").Select Range("C6").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents For Each s In Sheets ActiveCell.formula = "=Hyperlink(""i'" & s.Name & "'!A4"",""" & s.Name & """)" ActiveCell.Offset(1, 0).Activate i = i + 1 Next s End Sub 

Answer 1

那么这样的事情呢？

 Sub listsheets() Dim i As Long Dim rng As Range Sheets("TOC").Select Range(Range("C6"), Range("C6").End(xlDown)).ClearContents Range("C6").Select For Each s In Sheets If s.Name <> "TOC" Then Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ s.Name & "!" & ActiveCell.Address(0, 0), TextToDisplay:=s.Name ActiveCell.Offset(1, 0).Activate End If Next s Set rng = Range("C6") For i = 1 To ActiveWorkbook.Sheets.Count If Sheets(i).Name <> "TOC" Then Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("I1"), Address:="", SubAddress:= _ "TOC!" & rng.Address(0, 0), TextToDisplay:="TOC" Set rng = rng.Offset(1, 0) End If Next i End Sub