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

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

3、在编辑器重输入如下程序：Sub sheetsname()Dim i!Cells(1巳呀屋饔, 1).Value = "表名"For i = 1 To Sheets.Count潮贾篡绐Cells(i + 1, 1).Value = Sheets(i).NameNext iEnd Sub

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

6、总结：1.需要对表中的表名进行提取到一个新的表中；2.点击【开发工具】-进入【visual basic】编辑器界面；3.在编辑器重输入如下程序；4.点击【运行宏】得到上述结果，点击【开发工具】编辑界面的【关闭】按钮；5.进入表格界面，进行检查是否遗漏表格，按照当前展示的表进行罗列的。