如何在Excel VBA中引用存储区域以删除重复项

Question

我有几张Excel表，其中有大约200到500多行包含重复值，我需要删除这些值。由于行数变化很大，我需要获得删除重复项的函数，以便以某种方式使用动态范围。我尝试使用的解决方案是：

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

我上次声明中的范围引用不起作用。我试着把它放在"有"one_answers"没有"之间。但这似乎也不是诀窍。

我应该如何引用我的存储范围？

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