excel vba如何批量增加sheets并命名

Question

现有一个excel文档a1.xls，其中包括了一个sheet名为sheet1，我想通过vba在这个sheet1后面增加20个sheets，并将这些sheets依次命名为mysheet1,mysheet2...mysheet20,更重更要的是，如何能够让mysheet1,mysheet2..mysheet20的index依次是2,3,...21?

Answer 1

Sub 插入工作表()

    For i = 1 To 20

        If Sheets.Count < 22 Then

            Sheets.Add after:=Sheets(Sheets.Count)

            Sheets(Sheets.Count).Name = "mysheet" & i

        End If

    Next

End Sub

Answer 2

Sub aaa()
    For i = 1 To 20
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = "mysheets" & i
    Next
End Sub