首页 > 解决方案 > 为添加了新行的范围更新高级过滤器

问题描述

我有一个工作表,其中包含单元格 A1 到 J2 中的标准列表。第 1 行是标题。

下面我有一个包含我所有数据项的表格。具有动态行数的单元格 A8 到 J

Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("D0022").Range("a1:j2"), Unique:=True

当我运行它时,我得到一个运行时 1004 应用程序定义或对象定义错误

我可以帮助我解释为什么我的 VBA 代码不起作用

标签: vbaadvanced-filter

解决方案


尝试改变Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(...

Sheets("D0022").Range("A8:J" & Sheets("D0022").Cells(Rows.Count, "J").End(...

"A8:J"而不是"A8:".

否则,您不设置范围的列。

Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row仅计算列 J:J 的最后一行...


推荐阅读