Поиск повторяющихся значений

[Flangini]

SAS888 предоставил мне именно то что нужно, осталось только немного изменить макрос и можно бежать к начальству

[Flangini]

А не подскажите как можно с помощью макроса объединять ячейки?

[SAS888]

Пусть, например, требуется объединить ячейки "А1" и "А2".
Если просто объединить, тогда:

Range("A1:A2").MergeCells = True

При этом Excel предупредит о том, что в объединенной ячейке будут наличествовать только данные первой ячейки объединяемого диапазона.
Если нужно предотвратить данное предупреждение, то перед объединением нужно вставить:

Application.DisplayAlerts = False

Но, как правило, требуется результат объединения поместить в центре созданной ячейки. тогда так:

Application.DisplayAlerts = False
    Range("A1:A2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With

Поэкспериментируйте.

P.S. Если нужно объединить и данные ячеек, то тогда через строковую переменную объединить, например, так:

Application.DisplayAlerts = False
    Dim MyString As String
    MyString = Range("A1") & Range("A2")
    Range("A1:A2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With
    Selection = MyString

[Flangini]

Огромное спасибо!!!