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

yanlj518

设置一个宏通过自动筛选将几个班的数据，分别复制到几个工作表中，又出现一个新问题。用相同的代码，在一个表中能够正常运行，而在另一个表中却提示“运行时错误'1024'，选定区域无效”。两个表一样啊，实在不知道为什么了？

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

yanlj518

谢谢！的确能运行。我终于发现了一个问题，那就是被复制的表一定要放在复制的表的右边才能正常运行，否则提示“运行时错误'1024'，选定区域无效”。真是一个怪问题！

pureshadow

看一下

yanlj518

能将附件修改上传吗？

pureshadow

我昨天试的是加了个SHEET，然后就没问题了。

yanlj518

将X=1TO5，改成4，还是一样啊！实在没招了，还请大家赐教！

pureshadow

问题出在SHEET（X）上面，既然定义的是X=1TO5，没有SHEET5，当然就报错了。

yanlj518

除了range()不一样，其它都一样，为什么会提示选定区域无效呢？

iamee

代码不一样啊~~~~~~~~

iamee

没钱不能下载附件 :L