Löschen leere Zellen in Excel VBA
Im Folgenden werden wir ein Programm in Excel VBA suchen, die leeren Zellen löscht.
Situation:
-
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
-
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:
-
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: