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 鍵後會在工作簿最前面插入一個目錄工作表。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!