Como deletar certas células?

Question

Gostaria de excluir determinadas células se uma célula adjacente não tiver um valor (vazia). Alguém pode escrever um código VBA para isso?

Por exemplo: se a célula “C” em qualquer linha estiver vazia, exclua a célula “A” na mesma linha.

Obrigado…

Answer 1

Se começarmos com dados como:

e execute esta pequena macro:

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

nós conseguiremos: