批量建立按1-31日复制当前工作表VBA

nnsea

Sub 批量复制并按日期命名()
    Dim i As Integer
      
    For i = 1 To 31
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = CStr(i) & "日"
    Next i
End Sub