怎么快速提取一个excel文件中的所有工作表名

时间:2023-01-07 09:33:55

1.首先,我分享第一个方法,这个方法可是非常简单的哦。打开一个含有多个工作表的excel工作薄,然后新建一个工作表,此处命名为“汇总表”,如下图所示。
怎么快速提取一个excel文件中的所有工作表名

2.找到“查看代码”并打开,查找方法如下图所示,有以下两个方法:1.鼠标右键点击“汇总表”,在下拉菜单中找到“查看代码”;2.找到工具栏中的“开发工具”,可以看到“查看代码”在“控件”下拉菜单中。
怎么快速提取一个excel文件中的所有工作表名

3.点击“查看代码”后进入如下对话框,双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框,在其中输入以下内容:


Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

Next

End Sub

输入后点击工具栏中的“运行”,点击下拉菜单中的“运行子过程/用户窗体”,运行完毕后即完成所有工作表名的提取。

怎么快速提取一个excel文件中的所有工作表名

4.查看结果


方式2:

1.利用公式,首先我们打开工具栏中的“公式”选项卡,点击下拉菜单中的“定义名称”。

2.定义一个名称,以定义为“abc”为例,另外在引用位值处输入“=get.workbook(1)”,然后点击“确定”。

3.接着我们随便点击一个单元格,在其中输入以下公式“=INDEX(abc,ROW(A1)&T(NOW()))”,然后直接在键盘上点击“Enter”即可看到这个单元格中已经包含第一个工作表名了,接着我们用鼠标左键下拉即可得到所有的工作表的名称。

4.从以上得到的名称可以看出,我们得到的名称除了工作表名称外还有工作薄名称,所以接下来我们还要去除工作薄名称,首先选中刚刚得到的所有工作表名称,Ctrl+c(或者右键点击复制),然后随便选中一个单元格,点击鼠标右键,选择“选择性粘贴”中的“值”即完成粘贴。

5.接着我们选中粘贴的所有工作表名称,在“数据”下拉菜单中点击“分列”进入以下窗口,选择“固定宽度”后点击“下一步”。