运行时错误：Range AutoFilter上的'1004'

Question

我想用VBA做什么 - 带有数组和删除行的过滤表。 我的数组有4个元素（在循环中更改为5个不同的集合）。 正在过滤的列有5个元素。 我想得到的只是1.这是一个循环，它将创建5个报告，每个报告根据第29列过滤不同的元素。

如果在调试模式下，我手动过滤该列并跳过该行，我在第二次尝试再次清除所有过滤器时出现相同的错误5行。

这是788部分的765和770行。其他一切运行顺利。

FilterOutArray - 包含4个元素的数组（每个都是Variant / String）。 第29列有5个不同的值，没有空格

我试图用字符串引用“Criteria1”，看看过滤一个元素是否有效，但不是。

'Run-time error: '1004' on row below
ActiveSheet.Range(Cells(1, 1).Cells(29, LastRow)).AutoFilter Field:=29, Criteria1:=FilterOutArray, Operator:=xlFilterValues

Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

'Run-time error: '1004' on row below
ActiveSheet.Range(Cells(1, 1).Cells(29, 9999)).AutoFilter Field:=29

Answer 1

在线：

ActiveSheet.Range(Cells(1, 1).Cells(29, LastRow)) ...

应该是逗号，而不是点。 像这样：

ActiveSheet.Range(Cells(1, 1), Cells(29, LastRow)) ...

“有趣”的部分是这样的： Cells(1,1),Cells(2,2).Address是一个有效的语法，给出相应单元格的地址，右列1列，下行1行，例如B2 。

无论如何，一般来说，请考虑如何避免在Excel VBA中使用Select 。 写2个单元格定义范围的“正确”方法是这样的：

With Worksheets(1)
    Set myRange = .Range(.Cells(1, 1), .Cells(5, 5))
End With