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

1、打开工作簿

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

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

7、单击执行

9、最后保存文件即可