Sub 主页链接()
'清空=====================================
Sheets("主页").Select
Range("b6:C100").Select
【Excel如何通过VBA自动生成表目录】Selection.ClearContents
'写入表名称和链接============================
i = 6
For Each sh In Worksheets
Sheets("主页").Cells(i, 2).Value = https://www.itzhengshu.com/excel/i - 5'输出序号
Sheets("主页").Cells(i, 3).Value = https://www.itzhengshu.com/excel/sh.Name'输出表名称
Sheets("主页").Cells(i, 3).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sh.Name & "'!A1" '写入链接
i = i1
Next sh
End Sub