07版excel中如何为多个sheet创建索引目录

发布网友 发布时间：2022-03-17 01:34

我来回答

共3个回答

热心网友 时间：2022-03-17 03:03

以下图为例，要在Sheet1的A列创建其他所有工作表的索引目录。

步骤1：右击工作表标签>>>查找代码（或按快捷键Alt+F11），打开VBA编辑器。

步骤2：插入>>>模块，然后在代码窗口中粘贴下面的代码，再关闭VBA编辑器，如下图

Sub AddLinks()
    Dim c As Range
    Dim i As Integer
    Set c = [A1]
    c.Select
    For i = 2 To Application.Worksheets.Count
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
        Set c = c.Offset(1)
        c.Select
    Next
End Sub

步骤3：开发工具>>>宏，选择宏名 AddLinks，再单击“执行”按钮，如下图

执行宏后的结果如下图所示，已建立了所有工作表的索引目录（超链接），单击单元格中的工作表名，就可以直接跳到对应的工作表。

热心网友 时间：2022-03-17 04:21

指向sheet1鼠标右击插入！

热心网友 时间：2022-03-17 05:56

例如，希望加索引的是Sheet1，被链接的是Sheet2。
1、点击Sheet1中希望链至Sheet2的单元格；
2、在Insert菜单点击Hyperlink；
3、在弹窗中点选Place in This Document；
4、选择Sheet2，然后点击OK即可。