Удаление лишних строк между группами

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

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

07.10.2020 21:42:55

Здравствуйте, дорогие форумчане! В столбце есть группы ячеек в которых одна за одной идет различный текст. Группа от группы разделена различным количеством пустых строк. Помогите, пожалуйста, найти простой способ оставить между групами одну пустую строку. Приложил файл с примером и тем, как это должно выглядеть в результате. Спасибо!

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

пыстые строки пример.xlsx (11.66 КБ)

Изменено: dom23 - 07.10.2020 21:43:59

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 07.10.2020 21:49:35 Рядом в столбце: =И(B1="";B2="") Фильтр по значению ИСТИНА, выделить строки, удалить, отобразить строки

Mershik

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

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

07.10.2020 21:57:45

dom23,

Код

Sub dsds()
Dim i As Long, lr As Long, cell As Range
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 23 To lr
If IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i + 1, 2)) Then
If cell Is Nothing Then
    Set cell = Cells(i, 2)
Else
    Set cell = Union(cell, Cells(i, 2))
End If
End If
Next i
If Not cell Is Nothing Then cell.EntireRow.Delete
End Sub

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