1、打开Excel数据表，如下图所示，当前工作簿中有多个工作表，将全部工作表明依次提取到A列的单元格中。
2、点击“开发工具”选项卡中的“Visual Basic”，打开VBA编辑界面，如下图所示。
3、双击VBA编辑界面左侧的工作表，使后面的代码在这个工作表中运行，在右侧空白区输入代码，代码会依次将工作表名提取到当前工作表的A列中：
Sub 鱼木混猪()
for each s in sheets
k=k+1
cells(k,1)=s.name
next
end sub
如下图所示。
4、点击代码中任意位置，然后点击“运行子程序”，如下图所示。
5、关闭VBA编辑界面，返回Excel，就可以看到所有工作表名都依次提取到了A列中，如下图所示。
1、1.打开数据表；
2.点击“开发工具”，“Visual Basic”；
3.输入代码，核心代码：
for each s in sheets
cells(k,1)=s.name
4.点击“运行子程序”按钮；
5.工作表名就被依次提取到了当前工作表的A列中。
