如何快速获取一个工作簿中所有工作表的名称？

1、需要对表中的表名进行提取到一个新的表中

2、点击【开发工具】-进入【visual basic】编辑器界面

3、在编辑器重输入如下程序：

Sub sheetsname()

Dim i!

Cells(1, 1).Value = "表名"

For i = 1 To Sheets.Count

Cells(i + 1, 1).Value = Sheets(i).Name

Next i

End Sub

4、点击【运行宏】得到上述结果，点击【开发工具】编辑界面的【关闭】按钮

5、进入表格界面，进行检查是否遗漏表格，按照当前展示的表进行罗列的

6、总结：

1.需要对表中的表名进行提取到一个新的表中；

2.点击【开发工具】-进入【visual basic】编辑器界面；

3.在编辑器重输入如下程序；

4.点击【运行宏】得到上述结果，点击【开发工具】编辑界面的【关闭】按钮；

5.进入表格界面，进行检查是否遗漏表格，按照当前展示的表进行罗列的。