Удаление всех строк листа кроме первой строки

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

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

19.08.2018 12:57:33

добрый день
как можно удалить на листе все строки кроме перавой ?

так неправильно выходит, смотрит последнюю запись только в первом столбце, а если во втором столбце данных больше- не удаляет все

Код
Rows("2:" & Cells(Rows.Count, 1).End(xlUp).Row).Delete Shift:=xlUp

спасибо

vikttur

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

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

19.08.2018 13:02:05

Код
Rows("2:" & ActiveSheet.UsedRange.Rows.Count+2).Delete

Метод хорош тем, что удалит все лишние строки (могут быть пустые, но форматированные)
Если в пользовательском диапазоне все строки листа, будет ошибка из-за +2. Для контроля проверть количество строк

P.S. подправил строку

brother_alex Пользователь Сообщений: 392 Регистрация: 08.01.2013	#3 19.08.2018 13:05:49 в том и дело что на листе могут быть заполнены любые ячейки в любых столбцах и нужно удалить полностью с форматированием все строки кроме первой Но этот макрос не работает

VideoAlex

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

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

19.08.2018 13:34:12

а этот?

Код
Rows("2:" & ActiveSheet.UsedRange.Rows.Count + 2).Delete

Изменено: VideoAlex - 19.08.2018 13:34:26

Kuzmich

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

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

19.08.2018 13:40:48

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

Код
ActiveSheet.UsedRange.Offset(1).Clear

vikttur

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

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

19.08.2018 13:55:28

Kuzmich, хороший вариант, но недостаток тот же (если форматированы все строки листа)

Цитата
brother_alex написал: этот макрос не работает

Я точку пропустил...
На будущее: свои "не работает" нужно подтверждать примером.

RAN

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

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

19.08.2018 16:13:52

И пошто мудрить?

Код
Rows("2:" & Rows.Count).Delete

имена листов, точки - по вкусу.

Изменено: RAN - 19.08.2018 16:15:13

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#8 19.08.2018 16:16:00 Андрей, тут возможен вриат Rows("2:" & 1).Delete

RAN Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#9 19.08.2018 16:17:59 Если постараться, то да. Если не очень стараться, то нет

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#10 19.08.2018 16:20:23 И стараться особо не надо. Случайно запустить второй раз.

RAN Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#11 19.08.2018 16:23:24 Ты что, всерьёз считаешь, что на листе строк убудет?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#12 19.08.2018 16:39:41 А я все о пользовательском диапазоне! ) Удалю лишнее, чтобы народ не путать.