Удаление последней объединенной строки

sdens2009 Пользователь Сообщений: 41 Регистрация: 02.04.2018	#1 05.04.2018 17:24:11 Есть таблица в Excel, в которой необходимо удалить последнюю строку(она объединенная). Подскажите как это сделать с помощью макроса. Изменено: sdens2009 - 05.04.2018 17:25:36

Sanja

Модератор

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

05.04.2018 17:56:22

Удаляем последнюю строку с данными в столбце A

Код
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).MergeArea.EntireRow.Delete

Согласие есть продукт при полном непротивлении сторон

Jack Famous

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

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

OS: Win 10 Корп. x64 | Excel 2016 x64: | Browser: Chrome

05.04.2018 18:00:45

OFF: Sanja, а MergeArea зачем тут, если не секрет?)) проверка на объединение? То есть, если последняя ячейка не объединённая - не удалит?

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Sanja

Модератор

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

05.04.2018 18:09:46

Цитата
Jack Famous написал: То есть, если последняя ячейка не объединённая - не удалит?

Удалит. Но если ячейка объединена, то будет удалена только одна строка (та, которая с данными, Areas(1)), а я так понял, что нужно удалить все строки объединенной ячейки

Изменено: Sanja - 05.04.2018 18:10:27

Согласие есть продукт при полном непротивлении сторон

Jack Famous Пользователь Сообщений: 12059 Регистрация: 07.11.2014 OS: Win 10 Корп. x64 \| Excel 2016 x64: \| Browser: Chrome	#5 05.04.2018 18:10:50 Sanja, благодарю Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄