打开目标工作簿同按 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 键后会在工作簿最前面插入一个目录工作表。
,
