Excel用VBA创建目录的操作，一步到位

1、打开工作簿

2、看到有好几个工作表

3、然后按alt+F11打开宏编辑界面

4、然后插入模块

5、复制粘贴以下公式Sub 创建目录() Worksheets.Add Before:=Worksheets(1) Act足毂忍珩iveSheet.Name = "目录" Worksheets("目录").Cells = "" Worksheets("目录").Cells.ClearFormats For i% = 1 To Worksheets.Count Worksheets("目录").Cells(i, 1) = Worksheets(i).Name Worksheets("目录").Cells(i, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name Next Range("A1").Select Selection.Hyperlinks.Delete End Sub

6、回到Excel表格界面按快捷键alt+f8，打开宏执行对话框，并看到创建目录的按钮

7、单击执行

8、即可看到创建的目录

9、最后保存文件即可