第2个回答 2016-12-16
请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录:1、把光标放在第一个工作表希望插入目录的地方;2、键入Alt+F11打开VBA编辑器,然后选择菜单“插入 - 模块”;3、在代码编辑区粘贴如下代码:Option ExplicitSub AutoGenerateHyperlinks() Dim nIndex As Integer Dim oRange As Range For nIndex = 2 To Sheets.Count Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column) oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name NextEnd Sub4、键入F5运行,再键入Alt+F11切换回第一个工作表,检查目录超链是否自动建立成功。