运行时错误:Range AutoFilter上为“ 1004”

Bartek Nowakowski

我想用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
维塔塔

在该行中:

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中使用“选择”写入由2个单元格定义的范围的“正确”方法如下所示:

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

Excel VBA运行时错误1004 ActiveSheet.ListObject.Range.Autofilter

运行时错误'1004'

运行时错误'1004:Range类的PasteSpecial方法失败

运行时错误'1004':在某些工作表上,对象'Global'的方法'Range'失败,但是我的代码能够在大多数其他工作表上运行吗?

为我的VBA复制和粘贴宏获取“运行时错误'1004'”

错误:-运行时错误'1004'

FormulaArray产生运行时1004错误

Excel VBA运行时错误1004

运行时错误1004和424

运行时错误1004-vlookup

在另一台PC上运行时,自动填充上的Excel VBA Runtime 1004错误

Range(“ CustomTable”)。SpecialCells(xlCellTypeVisible)。删除操作现在失败。运行时错误'1004'

VBA-运行时错误'1004'-对象'_Global'的方法'Range'失败

Excel VBS中ActiveSheet.Range.Value的简单= IF语句触发1004运行时错误

在隐藏工作表上应用自动过滤器时出现运行时错误'1004'

打开Word文件时出现运行时错误'1004'

Excel 2010中的运行时错误1004刷新BackgroundQuery

Excel VBA-运行时错误1004

WorksheetFunction.Vlookup和运行时错误1004

运行时错误1004循环进行列乘法

替换公式时出现运行时错误1004

插入公式会导致运行时错误1004

尝试插入公式时VBA运行时错误'1004'

Excel VBA宏出现运行时错误'1004'

在列中选择数据的VBA运行时错误1004

解决listobject粘贴特殊-运行时错误1004

如何修复VBA运行时错误1004或424

ADODB到querytable:运行时错误1004

Excel VBA Vlookup运行时错误1004