Удаление пустых строк по условию пустых 4 столбцов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление пустых строк по условию пустых 4 столбцов (Макросы/Sub)

grh1

Дата: Четверг, 06.06.2019, 13:49 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 233

Репутация: 0 ±

Замечаний: 40% ±

2019

Добрый день, уважаемые знатоки макросов!
Имеется макрос, который удаляет пустые строки в документе. (условие, что строка ВСЯ пустая)
Как добавить условие, чтобы удаление происходило при пустых первых 4 столбцах (в примере выделил желтым)
Если первые 4 столбца пустые - удаляем строку.

Спасибо

Сам макрос такой:
[vba]

Код

Sub www()
    Dim i&
    With ActiveSheet.UsedRange
        For i = 1 To .Columns.Count
            .AutoFilter Field:=i, Criteria1:="="
        Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With: ActiveSheet.AutoFilterMode = 0
End Sub

[/vba]