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)括号里的值