Excel VBA删除重复的行

我有一个问题，似乎很简单，这是荒谬的，但重复不删除。 我有下面的代码，应该引用一行与另一个，如果所有是相同的行之间我想重复删除。 这不是代码错误，它只是不删除行。

With Sheets("PR0Perf") lastrow = Cells(Rows.Count, "B").End(xlUp).Row Set rng = Range("A1:T" & lastrow) rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 _ , 14, 15, 16, 17, 18, 19), Header:=xlYes End With 

就好像它没有突出显示纸上的所有单元格一样。 有谁知道这个问题可能是什么？ 我可以粘贴整个脚本，但它是页面很长。

Answer 1

假设您尝试从名为“PR0Perf”的工作表中删除重复项，而不是从ActiveSheet删除，请限定您的Range ， Cells和Rows对象：

 With Sheets("PR0Perf") lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row Set rng = .Range("A1:T" & lastrow) rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 _ , 14, 15, 16, 17, 18, 19), Header:=xlYes End With 

---

注意：代码只检查列A：S中的重复项。 这意味着T列中的值将是适用于A：S中每个唯一组合的第一行的值。

Answer 2

我试图删除有filter的工作表中的重复项。 一旦我设置macros以运行上述代码之前删除filter，我的问题就消失了。 感谢反馈团队！