如何引用存储范围以删除 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