自动生成EXCel目录方法
- 格式：docx
- 大小：280.90 KB
- 文档页数：4
自动生成E X C e l目录方
法
This model paper was revised by the Standardization Office on December 10, 2020
打开你要创建，目录的表格按Alt+F11在谈出的
对话框中点插入选择模块然后把下面的代码复制
到模块中
复制完成后按F5运行即可，如果后期对表名做了修改，只需要重新F5运行刷新下目录即可。
标签:
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount =
If ShtCount = 0 Or ShtCount = 1 Then Exit
Sub
= False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
= "正在生成目录…………请等待！"
For i = 2 To ShtCount
Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed .VerticalAlignment = xlCenter
.AddIndent = True
. = True
. = 34
End With = False = True Tuichu: End Sub。
