如何用VBA代码生成多个工作表并返回当前工作表中

您可以使用以下VBA代码来生成多个工作表并返回当前工作表中： ``` Sub CreateWorksheets() Dim i As Integer Dim ws As Worksheet '创建10个工作表 For i = 1 To 10 Set ws = ThisWorkbook.Sheets.Add(After:= _ ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ws.Name = "Sheet" & i Next i '返回当前工作表 ThisWorkbook.Sheets("Sheet1").Activate End Sub ``` 这段代码将创建10个名为“Sheet1”到“Sheet10”的工作表，并将当前工作表设置为“Sheet1”。您可以根据需要更改工作表的数量和名称。