给 Excel 工作表建立目录

给 Excel 工作表建立目录

整理大量工作表是一项艰巨的任务，但建立一个目录可以显著简化这一流程。本文将逐步指导您如何在 Excel 工作簿中创建目录。

步骤 1：创建目录工作表

在工作簿中新建一个工作表，并将其命名为“目录”。这将成为您目录的中心位置。

步骤 2：输入目录标题

在“目录”工作表的 A1 单元格中输入“目录”。该标题将位于目录的顶部。

步骤 3：插入超链接

在 A 列中列出要创建目录的工作表名称。在每行中，在 B 列的相应单元格中插入超链接，指向您想要链接到的工作表。要插入超链接，请执行以下操作：

1. 突出显示 B 列单元格。
2. 点击“插入”选项卡。
3. 点击“链接”按钮。
4. 在“插入超链接”对话框中，选择“该文档中的位置”。
5. 从列表中选择要链接的工作表。

步骤 4：美化目录

通过添加格式和样式来美化目录。您可以更改字体、颜色、对齐方式和单元格边框。这将使目录更具视觉吸引力和易于阅读。

步骤 5：使用宏（可选）

要自动化目录创建过程，您可以使用宏。宏是一段 VBA 代码，可自动执行任务。以下是一个宏示例，可以从活动工作簿中的所有工作表创建目录：

Sub CreateCatalog()
    Dim wsCatalog As Worksheet
    Dim wsSource As Worksheet
    Dim iRow As Long

    '创建目录工作表
    Set wsCatalog = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    wsCatalog.Name = "Catalog"

    '标题
    wsCatalog.Range("A1").Value = "Catalog"

    '循环工作簿中的所有工作表
    iRow = 2
    For Each wsSource In ThisWorkbook.Worksheets
        If wsSource.Name <> "Catalog" Then
            '插入工作表名称
            wsCatalog.Range("A" & iRow).Value = wsSource.Name

            '插入超链接
            wsCatalog.Range("B" & iRow).Hyperlinks.Add Anchor:=wsCatalog.Range("B" & iRow), Address:="'" & wsSource.Name & "'!A1", TextToDisplay:="转到 " & wsSource.Name
            iRow = iRow + 1
        End If
    Next wsSource

End Sub

将上述代码复制到 VBA 编辑器（Alt + F11）中，然后运行宏以生成目录。

---