excel表格自動統計sheet表名

1.按ALT+F11進入VBE編輯器

2.雙擊需要放在sheet中，打開編輯器

 

3.復制如下代碼到編輯器中：

Sub GetShNames()
i = i + 1
For Each wb In ThisWorkbook.Sheets
WorkSheets(1).Cells(i, 1) = wb.Name
i = i + 1
Next
End Sub

 

4.按F5運行，就會在第一張工作表的第一列列出工作簿中的所有工作表名稱，

若不是想放在第一張工作表上，可更改代碼中的WorkSheets(1)括號里的值