首页 › 实战技术 › 批量建立按1-31日复制当前工作表VBA

nnsea 发表于 2023-11-6 19:31:37

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

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

查看完整版本: 批量建立按1-31日复制当前工作表VBA