如何引用存儲范圍以刪除 Excel VBA 中的重復項

Question

我有幾張 Excel 表，其中包含近 200 到 500 多行包含重復值的行，我需要將其刪除。 由於行數變化很大，我需要獲取 function 以刪除重復項以以某種方式使用動態范圍。 我嘗試使用的解決方案是：

Sub RemoveDup()

    Dim SR as Range

    Range(Cells(2,1), Selection.End(xlDown)).Select

    Set SR = Selection

    ActiveSheet.Range(SR).RemoveDuplicates Columns:=1, Header:=xlNo 'This doesn't work.

End Sub

我上一條語句中的范圍引用不起作用。 我試圖把它放在“有和沒有&之間。但這似乎也不是訣竅。

我應該如何引用我的存儲范圍？

Answer 1

您可以嘗試以下操作，這將獲得包含 A 列中數據的最后一行，然后使用該范圍刪除重復項：

Sub RemoveDup()
    SR = Cells(Rows.Count, "A").End(xlUp).Row
    'get the last row with data on Column A

    Range("A2:A" & SR).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub