VBA批量生成格式相同的工作表

你可以使用VBA编写一个宏来批量生成格式相同的工作表。下面是一个示例代码：

Sub CreateSheets()
    Dim i As Integer
    Dim ws As Worksheet
    
    For i = 1 To 10 '生成10个工作表
        Set ws = ThisWorkbook.Sheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Name = "Sheet" & i '设置工作表名称
        '在这里进行格式设置
        ws.Range("A1").Value = "Hello World!" '示例：在A1单元格写入文本
    Next i
End Sub

在上面的代码中，我们使用了一个For循环来生成10个工作表。在每次循环中，我们使用`Set ws = ThisWorkbook.Sheets.Add(After:=Worksheets(Worksheets.Count))`生成一个新的工作表，并将其赋值给`ws`变量。然后，我们使用`ws.Name = "Sheet" & i`设置工作表的名称，其中`i`是循环变量。最后，在注释部分，你可以进行你所需的格式设置。