删除VBA中的重复excel

我试图删除在我写在vba的macros结束时的重复项。 macros运行，但是当涉及到删除重复的地方，它说对象不支持该属性或方法时，对象是作为一个范围Dimed，并设置为一个范围。 我真的很困惑，为什么发生这种情况，我似乎无法find是什么原因造成这个错误。 我粘贴下面的代码导致错误和我设置范围对象的点的代码。 任何帮助将不胜感激。

Set WS = ThisWorkbook.ActiveSheet With WS Set Rng1 = .Range("B2:B" & .Range("B" & .Rows.Count).End(xlUp).Row) Set rng2 = .Range("C1:D" & .Range("C" & .Rows.Count).End(xlUp).Row) End With If UBound(WrdArray2) < 0 Then ActiveSheet.rng2.RemoveDuplicates End End If 

Answer 1

代替

 ActiveSheet.rng2.RemoveDuplicates 

只要尝试下面的内容：

 rng2.RemoveDuplicates 

导致错误的原因是您已经设置了对象rng2的范围，并且rng2不包含在Activesheet中。 也就是说，rng2是由您创build的独立对象，而不是Activesheet的属性。