Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удалить пустые строки, если подряд пустых 2 и более. Оставить одну пустую, В таблице определить идущие подряд 2 и больше пустые строки и удалить их, оставив только 1 пустую строку.
 
#1
19.04.2019 14:45:50
Всем доброго времени.

Порылся (а может слабо порылся) и нашел только удаление пустых строк: https://www.planetaexcel.ru/techniques/2/62/

Буду предельно благодарен, если кто-то сможет написать макрос под удаление пустых строк при условии, что пустых подряд 2-е и более. При этом удалить не все пустые строки в таком найденном диапазоне, а оставить одну пустую.
 
 
 
#2
19.04.2019 15:09:59
Доброго. Я уже смог. Где показывать-то? :)
Кому решение нужно - тот пример и рисует.
 
 
 
#3
19.04.2019 18:14:15
Пытливый, Тут можно :)
Изменено: Vitalio - 22.04.2019 10:59:36
 
 
 
#4
20.04.2019 07:39:35
см. расширенный фильтр с критерием в L1:L2
Оставшиеся строки - удялить.  
По вопросам из тем форума, личку не читаю.
 
 
 
#5
22.04.2019 10:58:31
БМВ, не совсем понял ваше предложение. Не нашел код VBA в вашем файле.
 
 
 
#6
22.04.2019 11:50:37
Vitalio, Не на одном VBA мир стоит. Это решение на встроенном расширенном фильтре. Да, пара действий руками, но это часто быстрее чем писать макрос под задачу.
По вопросам из тем форума, личку не читаю.
 
 
 
#7
22.04.2019 12:14:31
Можно таким макросом:
Код
Sub Del2Rows()
    Dim lngI As Long
    For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(lngI, 1) = "" And Cells(lngI, 1) = Cells(lngI - 1, 1) Then
          Rows(lngI).Delete shift:=xlUp
        End If
    Next lngI
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#8
22.04.2019 15:10:46
Пытливый, огромное вам искреннее спасибо! А так же всех, кто открыл, почитал, и постарался решить мою проблему.

Природа не обделила ленью, что заставляет часть некоторых процессов переводить в нажатие одной кнопки, но она же, лень, не позволяет копнуть глубже в изучение некоторых моментов. Рад, что есть люди, готовые помочь в некоторых вопросах :)
 
 
 
Страницы: 1
Наверх