如何用vba快速地创建以1月到12月为名称的工作表？

若要用vba创建工作表，可以使用Worksheets.Add方法。

它的语法如下：

expression . Add( Before , After , Count , Type )

其中Before , After参数分别表示是要将新建的工作表至于哪个工作表之前或之后，Count参数为要插入的工作表的数量，Type参数为要插入的表的类型。

用vba快速地创建以1月到12月为名称的工作表，可以使用如下的代码：

Sub QQ1722187970()
    '快速创建以1月-12月为名称的工作表
    Dim oWK As Worksheet
    For I = 1 To 12
        Set oWK = Excel.Worksheets.Add(after:=Excel.Worksheets(Excel.Worksheets.Count))
        oWK.Name = I & "月"
    Next I
End Sub

其中after:=Excel.Worksheets(Excel.Worksheets.Count)表示每次新建的工作表都插入到最后一个工作表之后。