Question

excel大神帮忙解答，为什么这段宏代码运行会报400的错误？

将sheet1的H:J列，复制一下，新建sheet2页，粘贴进去
Columns("H:J").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
Columns("A:C").Select
Application.CutCopyMode = False
前后代码是这样的：
Range("G9").Select
Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:G4"), CopyToRange:=Columns("H:J"), Unique:=False
Columns("H:J").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Columns("A:C").Select
ActiveSheet.Paste
Columns("A:C").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$28").AutoFilter Field:=1, Criteria1:="<>*包水灵*", _
Operator:=xlAnd

Answer 1

我的表上执行没有问题哦，是否你的工作表有事件或者其它代码影响了。

追问

我也很奇怪，我把这段单独拿出来执行也没问题，放在整体代码里就过不去了，一直报错
而且我在家的电脑上执行就没问题，一到公司的电脑上执行就不行了，公司电脑是excel2010的。不知道是不是有什么影响

追答

一、你在ALT+F11后的CTRL+R仔细看看，有没有病毒代码。
二、F8一行一行执行，看看是哪个语句造成的错误。

追问

我用F8查了，是这句这行不过去，Cells.Select，我换成了Columns("A:C").Select，也执行不过去~

追答

请拷屏报错的提示信息，我看看电脑怎么说的。

追问

电脑就报了个400

追答

你这个Cells.Select语句本来就没有任意何以，可以注释掉，如果不报错就行了。

报错语句修改为：
Application.Goto Columns("A:C")

追问

我试了下~把代码改成了Application.Goto Columns("A:C")，结果。。。跳到sheet1的A:C去执行后面的代码了，没有复制到sheet2~

追答

要哪个表就写出来：
Application.Goto sheet2.Columns("A:C")