Макрос для удаления повторяющихся строк

[Jelena_bsb]

Добрый день.
Нужен макрос для удаления повторяющихся строк в Excel.
Например:
1
2
3
4
3
5
Нужно удалить повторяющиеся числа и сдвинуть 5 вверх.
Заранее спасибо.

[EducatedFool]

Здесь можно найти сотни готовых решений вашего вопроса.
Чем все эти решения не устраивают?

[Jelena_bsb]

Спасибо за ссылку, посмотрю там

[аналитика]

Sub БезПовторов()
   Dim c As Range
   Dim БП As New Collection
   Dim i As Integer
   
   On Error Resume Next
   For Each c In [A2:A19]
      БП.Add c, c
   Next c
   
   For i = 1 To БП.Count
      Cells(i + 1, 2) = БП(i)
   Next i
End Sub

повторы в диапазоне "A2:A19"