EXCEL VBA用For Each给表格加目录

绿色字体是注释

操作动态图

For Each是变量在某个集合里面循环，这个集合可以是单元格，可以是工作表，也可以是工作薄，客官可以自行修改代码进行尝试。

代码如下：

Dim a As Byte, d As Byte

    Dim arr As Range, str As String

    Sub xjclj()

    a = ActiveWorkbook.Sheets.Count

    d = 2

    For Each arr In Selection.Resize(a - 1, 1)

    str = ActiveWorkbook.Sheets(d).Name

    ActiveSheet.Hyperlinks.Add Anchor:=arr, Address:="", SubAddress:= _

    str & "!A1", TextToDisplay:=str

    d = d + 1

    Next

End Sub

---

转发后可以帮助更多的人。

上一篇精彩内容链接，点击查看

【Excel合并计算，领导再也不用担心我的学习！】