Удалить строки, если ячейка столбца пустая, начиная от слова

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

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

Удалить строки, если ячейка столбца пустая, начиная от слова (Макросы/Sub)

timo64uk

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

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

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

Сообщений: 121

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

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

Office16

Добрый день

В столбце С есть текст "от Заказчика / Owner" (блуждающий по строкам, но фиксированный по столбцу С), после данного текста и до последней заполненной ячейки по столбцу F нужно удалить строки, если по столбцу F в ячейке пусто (нет текста, цифр, символов).
Этот код съедает строку с текстом "от Заказчика / Owner": [vba]

Код

PS = Range("F" & Rows.Count).End(xlUp).Row
    PF = Application.Match("от Заказчика / Owner", Range("C:C"), 0)
    For i = PS To PF Step -1
    If Cells(i, 6) = "" Then
    Rows(i).Delete
    End If
    Next

[/vba]
Помощи прошу.
(отредактировал, т.к. файл доложил)