通过VBA宏可快速批量创建Excel工作表。1、使用“批量新建工作表”代码可插入指定数量的空白表；2、运行“按名称批量建表”宏，依据A列名称列表创建对应工作表并避免重名；3、执行“创建编号工作表”宏，输入前缀与数量，自动生成如“第1期”至“第4期”的连续命名工作表，提升效率与一致性。
如果您需要在Excel中快速创建多个工作表，而不是手动逐一添加，可以通过VBA宏实现批量新建工作表的操作。这种方法特别适用于需要生成大量结构相同或命名规则统一的工作表场景。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用VBA代码批量创建指定数量的工作表
通过编写简单的VBA代码，可以在当前工作簿中一次性插入预设数量的新工作表。此方法适合不需要特定名称、仅需快速生成空白表的场景。
1、按下 Alt + F11 打开VBA编辑器。
2、在左侧项目资源管理器中选择目标工作簿，点击菜单栏中的“插入”→“模块”，创建一个新模块。
3、在模块窗口中粘贴以下代码：
Sub 批量新建工作表()
Dim I As Integer
Dim NumSheets As Integer
NumSheets = InputBox("请输入要创建的工作表数量：", "输入数量")
For I = 1 To NumSheets
Sheets.Add After:=Sheets(Sheets.Count)
Next I
End Sub
4、关闭编辑器返回Excel，按下 Alt + F8，选择“批量新建工作表”宏并运行。
5、在弹出的输入框中键入所需数量，例如输入“5”，确认后将自动生成5个新工作表。
二、按指定名称列表批量创建工作表
当需要创建工作表并赋予特定名称时，可以基于单元格中的名称列表来自动创建对应名称的工作表，避免重复命名错误。
1、在当前工作簿的某个工作表中输入要创建的工作表名称，例如在Sheet1的A列从A1开始依次输入“销售数据”、“库存明细”、“人员名单”等。
2、按下 Alt + F11 进入VBA编辑器，插入新模块。
3、粘贴以下代码：
Sub 按名称批量建表()
Dim Cell As Range
Dim wsNameRange As Range
Set wsNameRange = ThisWorkbook.Sheets(1).Range("A1:A" & ThisWorkbook.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row)
For Each Cell In wsNameRange
If Not WorksheetExists(Cell.Value) Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Cell.Value
End If
Next Cell
End Sub
Function WorksheetExists(wsName As String) As Boolean
On Error Resume Next
WorksheetExists = Not (ThisWorkbook.Sheets(wsName) Is Nothing)
On Error GoTo 0
End Function
4、运行该宏后，程序会读取A列中的每个名称，并检查是否已存在同名工作表，若不存在则新建一个以该名称命名的工作表。
三、创建带命名规则的连续编号工作表
适用于需要生成一系列按数字或日期顺序排列的工作表名称的情况，如“第1周”、“第2周”……提高命名一致性与可管理性。
1、打开VBA编辑器，插入新模块。
2、输入以下代码：
Sub 创建编号工作表()
Dim I As Integer
Dim Prefix As String
Dim Num As Integer
Prefix = InputBox("请输入工作表名称前缀，例如“第”：", "设置前缀")
Num = Val(InputBox("请输入需要创建的数量：", "输入数量"))
For I = 1 To Num
On Error Resume Next '防止因重名报错
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Prefix & I & "期"
On Error GoTo 0
Next I
End Sub
3、运行宏后，先输入前缀（如“第”），再输入数量（如“4”），系统将自动创建“第1期”至“第4期”共四个工作表。
