Удаление дубликатов из диапазона ячеек в excel vba

Я пытаюсь удалить дубликаты в excel 2013 VBA. но я получаю ошибку "объект не поддерживает это свойство или метод". Проблема в том, что у меня нет статического диапазона для выбора. Я хочу удалить дубликаты из столбца heaader 'abcd'.

Cells.Find(what:="abcd").Activate
ActiveCell.EntireColumn.Select
Set rng = Selection
ActiveSheet.rng.RemoveDuplicates

2 ответов


нужно сказать


удалить дубликаты из одного столбца

 Sub removeDuplicate()
 'removeDuplicate Macro
 Columns("A:A").Select
 ActiveSheet.Range("$A:$A7").RemoveDuplicates Columns:=Array(1), _ 
 Header:=xlNo 
 Range("A1").Select
 End Sub

Если у вас есть заголовок, а затем использовать Header:=xlYes

увеличьте ваш ряд согласно вашему требованию.
вы можете сделать это до 1000 вроде этого :

ActiveSheet.Range("$A:$A00")

подробнее здесь здесь