删除VBA excel中的重复项

Question

我试图删除我在vba中写的宏末尾的重复项。宏运行但是当涉及删除重复项时，它表示当对象被Dimed作为范围并且设置为范围时，对象不支持属性或方法。我真的很困惑为什么会发生这种情况，而我似乎无法发现导致此错误的原因。我粘贴了下面的代码，导致错误和我设置范围对象的点。任何帮助将不胜感激。

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是由您创建的独立对象，不是Activesheet的属性。