excel工作表统计技巧?打开目标工作簿同按 ALT F11 这两个键，我来为大家科普一下关于excel工作表统计技巧?下面希望有你要的答案，我们一起来看看吧!
excel工作表统计技巧
打开目标工作簿
同按 ALT F11 这两个键
在弹出窗口的菜单上点选：插入–模块
在右边编辑窗口中粘贴以下代码
Sub mulu()
On Error GoTo R 如遇到错误语句将直接挑到R运行
Dim I As Integer 定义I,shtcount和SelectionCell变量
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub 工作簿内仅0或1张工作表时候退出
Application.ScreenUpdating = 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.Add
Sheets(1).Name = 目录
End If
Sheets( 目录 ).Select 选定工作表”目录”
Columns( B:B ).Delete Shift:=xlToLeft 清除B列
Application.StatusBar = 正在生成目录…………请等待！ 添加等待状态条
For I = 2 To ShtCount 遍历除第一张工作表外所有工作表,建立链接
ActiveSheet.Hyperlinks.Add 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) = 目录 B列第一个单元格录“目录”
Set SelectionCell = Worksheets( 目录 ).Range( B1 )
With SelectionCell 调整单元格格式
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
R:
End Sub
按下 F5 键后会在工作簿最前面插入一个目录工作表。
,
关键词：
excel
原标题：excel工作表统计技巧（统计Excel中所有工作表表名）