1.首先,我分享第一个方法,这个方法可是非常简单的哦。打开一个含有多个工作表的excel工作薄,然后新建一个工作表,此处命名为“汇总表”,如下图所示。
2.找到“查看代码”并打开,查找方法如下图所示,有以下两个方法:1.鼠标右键点击“汇总表”,在下拉菜单中找到“查看代码”;2.找到工具栏中的“开发工具”,可以看到“查看代码”在“控件”下拉菜单中。
3.点击“查看代码”后进入如下对话框,双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框,在其中输入以下内容:
Sub a()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
输入后点击工具栏中的“运行”,点击下拉菜单中的“运行子过程/用户窗体”,运行完毕后即完成所有工作表名的提取。
4.查看结果
方式2:
1.利用公式,首先我们打开工具栏中的“公式”选项卡,点击下拉菜单中的“定义名称”。
2.定义一个名称,以定义为“abc”为例,另外在引用位值处输入“=get.workbook(1)”,然后点击“确定”。
3.接着我们随便点击一个单元格,在其中输入以下公式“=INDEX(abc,ROW(A1)&T(NOW()))”,然后直接在键盘上点击“Enter”即可看到这个单元格中已经包含第一个工作表名了,接着我们用鼠标左键下拉即可得到所有的工作表的名称。
4.从以上得到的名称可以看出,我们得到的名称除了工作表名称外还有工作薄名称,所以接下来我们还要去除工作薄名称,首先选中刚刚得到的所有工作表名称,Ctrl+c(或者右键点击复制),然后随便选中一个单元格,点击鼠标右键,选择“选择性粘贴”中的“值”即完成粘贴。
5.接着我们选中粘贴的所有工作表名称,在“数据”下拉菜单中点击“分列”进入以下窗口,选择“固定宽度”后点击“下一步”。