Страницы: 1
RSS
Объединение выделенных ячеек построчно
 
Господа, подскажите, пожалуйста, каким образом автоматизировать построчно операцию "Объединить и поместить в центре" для выделенных ячеек построчно для двух столбцов, один из которых пустой?
В примере два столбца: в левом данные, в правом пусто, результат объединения ниже. Строк при этом может быть n-ое количество.

Спасибо!
 
Код
Sub iMergeCell()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Range("A1").End(xlDown).Row
  For i = 1 To iLastRow
    Range("A" & i & ":B" & i).MergeCells = True
    Range("A" & i).HorizontalAlignment = xlCenter
  Next
End Sub
 
Kuzmich, благодарю!

Только вот данный код к выделенным ячейкам никак не относится, как я понимаю? И ещё он не учитывает изначальную высоту строки, что делает операция "Объединить и поместить в центре".

UPD: тьфу, я лох! Оказывается есть также операция "Объединить по строкам" :)
Изменено: The_Immortal - 25.02.2020 00:02:49
Страницы: 1
Наверх