当工作簿文件有较多工作表时，可用VBA获取工作簿中所有工作表的名称列表，并加上超链接，点击后跳转到相应工作表。本示例中的VBA代码可以实现：不论选择哪个工作表，表名称列表（包括工作表名称、顺序）都会立即更新。关键语句是：ThisWorkbook.Worksheets(i).Name工具/原料moreEXCELVBA方法/步骤1/2分步阅读

如下图示例中效果，工作表列表放置在B列中，工作表的增加、减少，该列表会自动更新。

2/2

在工作簿的“SheetActivate”事件中放置VBA语句，即可实现上述目标。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim shtIndex As Worksheet

If ActiveSheet.Name = Sheet1 Then 判断只有激活了总索引表才更新目录

Set shtIndex = ThisWorkbook.Sheets(sheet1) 为方便之后调用，定义索引表名

For i = 1 To ThisWorkbook.Worksheets.Count 遍历所有工作表

shtIndex.Cells(i, 2).Select 选中第二列的单元格

With Selection:

.Value = ThisWorkbook.Worksheets(i).Name 选中的单元格赋予工作表名称

在单元格中加上超链，链接到目标工作表的A1单元格

.Hyperlinks.Add Anchor:=Selection, Address:=, SubAddress:=shtIndex.Cells(i, 2).Value !A1, TextToDisplay:=shtIndex.Cells(i, 2).Value

End With

Next 结束循环

End If

End Sub

解析:

1、Workbook_SheetActivate事件，只要工作簿的任一工作表被选择，都会触发该事件。从而可以有效监控工作的名称修改、顺序调整等。

2、遍历所有工作表，确保不漏不丢：

For i = 1 To ThisWorkbook.Worksheets.Count

3、.Hyperlinks.Add Anchor链接到指定的工作表

4、shtIndex.Cells(i, 2).Select工作表列表存放位置，可根据需要修改

注意事项

个人经验，仅供参考

更多OFFICE应用技巧，欢迎关注、点赞~