为添加了新行的范围更新高级过滤器

Question

我有一个工作表，其中包含单元格 A1 到 J2 中的条件列表。第 1 行是 header.

下面有一个 table，其中包含我的所有数据项。具有动态行数的单元格 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 应用程序定义或 object 定义的错误

请问我的 VBA 代码为什么不起作用

Answer 1

尝试更改 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...

为添加了新行的范围更新高级过滤器

Update advanced filter for a range which has new rows added

vba

advanced-filter