用VBA提取其他多个工作表的名称（不包含本工作表），并生成链接目录
Sub CreateLink()
'定义变量
Dim ws As Worksheet
Dim i As Integer
'从A2开始填充目录链接
i = 2
'遍历本工作簿中的所有工作表
For Each ws In ThisWorkbook.Worksheets
'如果工作表名称不是当前活动工作表，则生成链接
If ws.Name <> ActiveSheet.Name Then
Cells(i, 1).Formula = '=HYPERLINK(''' & ws.Name & ''',''' & ws.Name & ''')'
i = i + 1
End If
Next
End Sub
#财务技巧##职场excel小技巧##财务会计玩转excel##excel#