继续求教怎么用for循环自动复制到工作表？

levy_rao

Sub copy()

    Application.DisplayAlerts = False
   
    For Each Sht In Sheets
        If Sht.Name <> Sheet1.Name Then Sht.Delete       '删除所有分表
    Next
   
    Range("A1393").Select
    Selection.AutoFilter
For x = 1 To 5
    Sheets("b1").Select
    Selection.AutoFilter Field:=4, Criteria1:=x
    Selection.copy
    Set wb = Worksheets.add
    wb.Name = x
    Sheets(x).Select
    Range("A1").Select
    ActiveSheet.Paste
Next x
   
    Sheets("b1").Select
    Sheets("b1").Move Before:=Sheets(1)
    Selection.AutoFilter

    Application.DisplayAlerts = False
End Sub