Как обратиться к сохраненному диапазону для удаления дубликатов в 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

Ссылка на диапазон в моем последнем утверждении не работает. Я пытался поместить его между "с и без &. Но это тоже не похоже на хитрость.

Как мне ссылаться на мой сохраненный диапазон?

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