Удалить 2 строки выше, если конкретная ячейка пуста [Цикл]

Question

У меня есть жестко запрограммированный отчет, который генерирует около 10 разделов.После запуска отчета некоторые разделы могут не содержать данных.Я хочу найти эти конкретные ячейки и удалить две строки (заголовки разделов) выше, если эта ячейка пуста (нет данных).

Например:

Если ячейка B586 пуста, удалите строки 584: 585.

, а затем ...

Если ячейка B505 пуста,удалить строки 503: 504

и т. д.

Answer 1

Один из способов достижения этого заключается в следующем: причина, по которой я удаляю строки ниже (586) перед проверкой строк выше (505), заключается в том, что, как только вы удаляете строку, строки сдвигаются вверх, в сущности меняя номера строк.:

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    If ws.Range("B586").Value = "" Then ws.Rows("584:585").Delete
    If ws.Range("B505").Value = "" Then ws.Rows("503:504").Delete
End Sub