Excel如何利用VBA提取全部工作表名？

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列中。