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
求问一下是怎么回事,实在没办法了
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
求问一下是怎么回事,实在没办法了