Question

我有一个看起来很简单的问题，这很荒谬，但重复的内容并没有删除。我有下面的代码，它应该引用一行与另一行，如果行之间的所有内容相同，我希望删除重复项。这不是代码错误，它只是不删除行。

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

假设您尝试从名为＆＃34; PR0Perf＆＃34;而不是ActiveSheet的工作表中删除重复项，请使您的Range，Cells和{{符合条件1}}对象：

Rows

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

Answer 2

我试图从带有过滤器的工作表中删除重复项。在运行上述代码之前将宏设置为删除过滤器后，我的问题就消失了。感谢反馈团队！

Excel VBA删除重复行

2 个答案: