热心网友
回答时间：2022-06-17 06:20
我的回答描述已经非常清晰，无需修改！
可以用VBA编辑宏代码实现，还可以建立超链接，当需要时可在该表直接链接到目标工作表。代码如下：
1、工作表名称规则无特殊符号可用
Sub 目录()
Dim sh As Worksheet
For i = 1 To Worksheets.Count '遍历工作表
Set sh = Worksheets(i)
Cells(i, 1).FormulaR1C1 = sh.Name '将工作表名称写入A列cells(i,1)中的1代表A列。
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=sh.Name & "!A1" '添加超链接
Next
End Sub
2、当工作表名称中有括号等符号可用
Sub 目录()
Dim sh As Worksheet
For i = 1 To Worksheets.Count '遍历工作表
Set sh = Worksheets(i)
Cells(i, 1).FormulaR1C1 = sh.Name '将工作表名称写入A列cells(i,1)中的1代表A列。
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & sh.Name & "'" & "!A1" '添加超链接
Next
End Sub
1、按Alt+F11，调出VBA编辑器，在下图sheet3右击，插入——模块。
2、将所需代码复制到编辑器中，如下图所示：
3、选择要生成目录的工作表，光标置于代码中按F5，工作簿中的所有工作表就填充在该工作表，并建立了超链接，方便查阅。
热心网友
回答时间：2022-06-17 06:20
热心网友
回答时间：2022-06-17 06:21
热心网友
回答时间：2022-06-17 06:21
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
