Объединение ячеек по вертикали, если одна ячейка достигла максимальной высоты

Пользователь

Сообщений: 28 Регистрация: 24.09.2020

19.09.2021 20:45:54

Добрый вечер,
у меня такая задача: при помощи макроса распознать ячейку максимальной высоты и добавить новую строчку ниже и объединить две ячейки в одну.
И так пройтись по всем строкам и по всем столбцам и объединить ячейки по вертикали. В приложении макрос который мне бы хотелось с Вашей помощью улучшить. Не могу сообразить как прогнать макрос по всем строчкам с имеющимся значением. Так же не могу спрограммировать, как макросу пройтись по всем столбцам и соединить ячейки. В приложении мой макрос со страницой как первоначально и как должно быть.
Ячейка с максимальной высотой может быть в любой строчке.

Спасибо большоре за помощь!
с уважением,
Екатерина

Прикрепленные файлы

row height test macro.xlsm (20.11 КБ)

Изменено: vikttur - 19.09.2021 21:13:01

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

19.09.2021 21:10:39

Екатерина,

Код

Sub mrsheki()
Dim lr As Long, i As Long, n As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 1 Step -1
    If Cells(i, 1).RowHeight = 409.5 Then
        Rows(i + 1).Insert
        For n = 1 To 4
            Range(Cells(i, n), Cells(i + 1, n)).Merge
        Next n
    End If
Next i
End Sub

Изменено: Mershik - 19.09.2021 21:12:16

Не бойтесь совершенства. Вам его не достичь.

Екатерина Пользователь Сообщений: 28 Регистрация: 24.09.2020	#3 19.09.2021 21:19:12 Спасибо большое, Mershik :-)