Sub 主页链接()
'清空=====================================
Sheets("主页").Select
Range("b6:C100").Select
Selection.ClearContents
'写入表名称和链接============================
i = 6
For Each sh In Worksheets
Sheets("主页").Cells(i, 2).Value = i - 5 '输出序号
Sheets("主页").Cells(i, 3).Value = sh.Name '输出表名称
Sheets("主页").Cells(i, 3).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sh.Name & "'!A1" '写入链接
i = i + 1
Next sh
End Sub
