如何用【VBA】快速批量提取多个工作表名称？

工作中，我们有时会需要将多个工作表Sheet的名称提取出来，制作成一个目录

如果一个一个去复制粘贴，效率肯定是很低的，如果Sheet数量很多，会严重影响我们的工作进度，那该如何处理呢？我们可以用VBA的方法快速处理：

步骤：

Step1:首先调出【开发工具】选项卡，单击【文件】选项卡-【选项】-【自定义功能区】，在主选项卡中，把【开发工具】前面的“√”选上，然后确定即可

Step2：单击 【开发工具】选项卡，在“代码”选项组中选择“Visual Basic”，弹出【模块代码】编辑框，选择Microsoft Excel 对象，然后单击【插入】选项卡，选择【模块】，然后把写好的宏放在右边的编辑框里，然后把代码编辑框关掉

**VBA代码如下：**

*Sub 提取工作表名称()*

*Dim i!

Cells(1, 1).Value = "表名"

For i = 1 To Sheets.Count

Cells(i + 1, 1).Value = Sheets(i).Name

Next i

End Sub*

Step3：单击Excel中的【插入】选项卡，单击【形状】按钮，随便选择一个文本框，然后输入文字，单击文本框，鼠标右键，选择【指定宏】选项，选择刚才编辑的宏，然后确定即可，当我们单击“提取工作表的名称”按钮时，在A列就会看到每个表的名称都提取出来了

你学会了吗？

欢迎关注和转发

                                                                    END