Im Folgenden werden wir ein Programm in Excel VBA suchen, die leeren Zellen löscht.

Situation:

Delete Blank Cells in Excel VBA

  1. Zuerst erklären wir zwei Variablen vom Typ Integer. Eine benannte Zähler und ein i genannt. Wir initialisieren die Variable Zähler mit dem Wert 0

Dim counter As Integer, i As Integer

counter = 0
  1. Als nächst wir für jede Zelle prüfen, ob sie leer ist oder nicht (<> Mittel gleich nicht zu). Wir verwenden eine Schleife für diese. Wenn nicht leer ist, schreiben wir den Wert auf Spalte B. Der Zähler verfolgt die Anzahl von Zellen enthält, die jedesmal, wenn wir Wert auf Spalte B zu kopieren, wir Zähle um 1. Dieses Stück des Programms Spalte B kopiert wurden sieht wie folgt aus:

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

Ergebnis bisher:

Write non Empty Cells to next Column

  1. Schließlich leeren wir Range ( „A1: A10“), kopieren Sie die Werte der Spalte B Spalte A, und leeren Sie Range ( „B1: B10“).

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

Ergebnis:

Delete Blank Cells Result