在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的属性。