玖叶教程网

工作中有时候需要给表格加目录，以便更快捷更直观的进入你想要的工作表，今天分享的代码很短，我尽量把它解释的更简单。

绿色字体是注释

代码演示

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

如果对我的讲解有疑问欢迎留言，如果觉得有用，请别忘了收藏点赞，欢迎转发，谢谢