1、本教材以下图数据为例，将该工作簿中的工作表名按顺序添放在工作表1中。
4、为了便于理解，输入文字为：提取工作表名；并设置文字格式。
5、进入VBA窗口，插入模块输入以下代码：Sub extract_gzb_name()Dim i As ByteDim k As Integerk = Worksheets.CountFor i = 1 To k Step 1 Cells(i + 1, 1) = i Cells(i + 1, 2) = Sheets(i).NameNextEnd SubPS：不清楚进入VBA方法的话，以参考以下链接：
