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