如何用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列就会看到每个表的名称都提取出来了

不会VBA也可以快速提取 欢迎关注和转发

END