如何用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