Wie lösche ich bestimmte Zellen?

Question

Ich möchte bestimmte Zellen löschen, wenn eine benachbarte Zelle keinen Wert hat (leer). Kann jemand einen VBA-Code dafür schreiben?

Beispiel: Wenn Zelle „C“ in einer beliebigen Zeile leer ist, löschen Sie Zelle „A“ in derselben Zeile.

Danke…

Answer 1

Beginnen wir mit Daten wie:

und führen Sie dieses kurze Makro aus:

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

wir werden bekommen: