Sub 链接()
Sheets("目录").Select '注意
'显示所有工作表
For i = 1 To Sheets.Count
Cells(i + 1, 2).Value = Sheets(i).Name
Next
'超链接
For i = 1 To Sheets.Count
t = Cells(i + 1, 2)
Cells(i + 1, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
Next
End Sub 这里面最后3行和4行错了谁能纠正一下
联系客服