Объединение строк

[fox31]

Подскажите как объеденить ячейки в таблице: пример прилагается

Проблема состоит в том, что таблица динамическая - каждый раз колличество записей может меняться, следовательно должно и меняться диапазон объеденения.



pr.zip Пример

[EducatedFool]

Хотя целесообразность подобного макроса вызывает большие сомнения (таблица с трудом будет поддаваться обработке формулами), сделал макрос:

Sub test()
    Dim ar As Range, ra As Range: Application.ScreenUpdating = False
    On Error Resume Next: Application.DisplayAlerts = False
    Set ra = Range([A5], Range("A" & Rows.Count).End(xlUp))
    For Each ar In ra.SpecialCells(xlCellTypeConstants).Areas
        ar.Offset(, 1).Merge
        ar.Offset(, 1).HorizontalAlignment = xlCenter
    Next ar
    Application.DisplayAlerts = True
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__19-33-47.zip