VBA，编译错误，缺少：语句结束

VBA，编译错误，缺少：语句结束

Sub sheetsMaker()

    Dim i As Integer

    For i = 1 To 12
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).name = i&"月" ' 这句给我报错了
    Next
    
End Sub

求问一下是怎么回事，实在没办法了

错误原因：你的 i 是int类型，但是sheet名字是string

报错信息

img

解决办法：需要转码，更改后代码参照如下：

Sub sheetsMaker()
    Dim i As Integer
    For i = 1 To 12
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = CStr(i) & "月"
    Next
End Sub

执行效果：

img

这里给你一个电子手册，关于VBA的，希望对你有所帮助

https://github.com/bluetata/concise-excel-vba

Sheets(Sheets.Count).name := i&"月"