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