excel怎么自动生成目录？

Answer 1

在 Excel 中，你可以使用宏（Macro）来自动生成目录。以下是一个简单的示例：
步骤1：打开 Excel 文件，并按下 "Alt + F11" 组合键打开 VBA 编辑器。
步骤2：在 VBA 编辑器中，选择 "插入" -> "模块"，在模块中输入以下代码：
vba 复制Sub 生成目录()
Dim ws As Worksheet
Dim i As Integer
Dim str As String

' 清除现有目录
Sheets("目录").Delete

' 创建新的目录工作表
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "目录"

' 在目录工作表中添加标题
ws.Range("A1").Value = "目录"
ws.Range("A1").Font.Bold = True

' 循环遍历每个工作表
For i = 1 To ThisWorkbook.Sheets.Count - 1
' 获取工作表名称和地址
str = ThisWorkbook.Sheets(i).Name & "!" & ThisWorkbook.Sheets(i).Range("A1").Address(, , xlR1C1)

' 添加链接到目录工作表
ws.Hyperlinks.Add Anchor:=ws.Range("A" & i + 1), Address:="", _
SubAddress:=str, TextToDisplay:=ThisWorkbook.Sheets(i).Name
Next i
End Sub
步骤3：按下 "Ctrl + S" 保存你的 VBA 代码。
步骤4：按下 "Alt + Q" 返回到 Excel 工作表。
步骤5：按下 "Alt + F8" 打开宏对话框。
步骤6：选择 "生成目录" 宏，并点击 "运行" 按钮。
这将会在你的 Excel 文件中自动创建一个名为 "目录" 的工作表，其中包含你所有工作表的链接。你可以根据需要调整目录的样式和布局。
请注意，如果你在 Excel 中添加或删除工作表后，你需要重新运行宏来更新目录。

Answer 2

没有预制功能直接完成，但可用几句代码解决，临时用下后再删除。方法：

按ALT+F11组合键，打开VBE窗口，执行"插入"-"模块"，复制下面代码进去。

回到工作表，先选中目标区域(也可同时选中多个区域)，然后回到代码窗口按F5运行程序即完成。

Sub ReHyp()

    For i = 1 To Selection.Areas.Count

        For Each c In Selection.Areas(i)

            c.Hyperlinks.Add c, c

        Next

    Next

End Sub

Answer 3

excel自动生成目录就用VBA来处理吧。以生成当前工作簿所在的目录为例。

代码：

Sub SheetsMulu()

Cells(1,1)=thisworkbook.path

End Sub

运行以上代码后，会在当前工作簿当前工作表的A1单元格中自动生成目录，此目录是当前工作簿所在的目录。