Страницы: 1
RSS
Удаление дубликатов без сдвига строки
 
Добрый день!
Прошу помочь написать макрос для нахождения дубликатов в столбце, и удаления повторных значений, оставляя только первое, без сдвига строки (т.е. просто очистить ячейки).
Прилагаю пример.
Заранее благодарю.  
 
Код
Sub ClearDouble()
  Dim R&, rg As Range
  R = 2
  Do While Not IsEmpty(Cells(R, 1))
    If Cells(R - 1, 1) = Cells(R, 1) Then If rg Is Nothing Then Set rg = Cells(R, 1) Else Set rg = Union(rg, Cells(R, 1))
    R = R + 1
  Loop
  If Not rg Is Nothing Then rg.ClearContents
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
Ігор Гончаренко написал:
Махмуд, поджигай!
:D
 
Ігор Гончаренко, спасибо большое!
Страницы: 1
Наверх