Как удалить определенные ячейки?

Question

Я хотел бы удалить определенные ячейки, если соседняя ячейка не имеет значения (пусто). Кто-нибудь может написать для него код VBA?

Например: если ячейка «C» в любой данной строке пуста, тогда удалите ячейку «A» в той же строке.

Спасибо…

Answer 1

Если мы начнем с таких данных, как:

и запустите этот короткий макрос:

Sub KleanUpA()
    Dim r As Range
    Set r = ActiveSheet.UsedRange.Range("C:C").Cells.SpecialCells(xlCellTypeBlanks).Offset(0, -2)
    r.Clear
End Sub

мы получим: