EXCEL VBA ——生成带链接工作表目录

要求

工作簿里面有若干工作表，生成一个工作表目录，点击对应的表名跳转到对应表。

第一步

开发工作选项卡——Visual Basic——右键——插入——模块——粘贴宏

粘贴的宏如下：

Sub ml()

Dim sht As Worksheet, i&, strShtName$

Columns(1).ClearContents '清空A列数据

Cells(1, 1) = "目录" '第一个单元格写入标题"目录"

i = 1  '将i的初值设置为1.

For Each sht In Worksheets  '循环当前工作簿的每个工作表

strShtName = sht.Name

If strShtName <> ActiveSheet.Name Then

'如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接

i = i + 1 '累加工作表数量

ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", _

SubAddress:="'" & strShtName & "'!a1", TextToDisplay:=strShtName

'建超链接

End If

Next

End Sub

本期关键字

#EXCEL#VBA#生成工作表目录#工作表自动跳转目录