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

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

мы получим: