【原】VBA之批量生成工作表及获取工作表名称

 前言

当你需要批量生成工作表及获取工作表名称时，懂点VBA将事半功倍。

1批量生成工作表

先命名“汇总”表，在A列中输入要生成的工作表名称。如下图所示：

ALT+F11 打开VBA编辑器，插入模块，在模块中输入下列代码：

Sub addworksheet()

Dim i As Integer

Dim n As Integer

Dim ws As Worksheet

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

n = Worksheets.Count

Set ws = Worksheets.Add

ws.Name = Worksheets("汇总").Cells(i, 1)

ws.Move after:=Worksheets(n)

Next

End Sub

运行该程序，瞬间生成如图所示：

2获取工作表名称

我们再返回去，将工作表的名称汇总到“汇总”表中：

代码如下：

Sub getworksheetname()

For i = 1 To Worksheets.Count

If Worksheets(i).Name <> "汇总" Then

Worksheets("汇总").Cells(i + 1, 2) =Worksheets(i).Name

End If

Next

End Sub

运行该程序，在B列得到所有的工作表名称：如图示：

VBA窗口如下图所示：

 总结

VBA其实并不难！

END