excel怎么一次性新建多个工作表_excel批量快速新建工作表vba方法

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

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

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