Vba 为已添加新行的范围更新高级筛选器

我有一个工作表，其中包含单元格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代码不起作用的原因的帮助

尝试更改

工作表（“D0022”）。范围（“A8:”&工作表（“D0022”）。单元格（Rows.Count，“J”）。结束（…

与

Sheets（“D0022”）.范围（“A8:J”和Sheets（“D0022”）.单元格（Rows.Count，“J”）.结束（…

“A8:J”

而不是

“A8:

否则，不设置范围的列

---

Sheets（“D0022”）.Cells（Rows.Count，“J”）.End（xlUp）。Row

只计算J:J列的最后一行。

非常感谢，我花了很长时间试着看我错过了什么。谢谢你的第二对yes