VBA XLUP - Wie verwende ich VBA XLUP in Excel? (mit Beispielen)

Excel VBA XLUP

Eine Sache, die Sie beim Schreiben von VBA-Code beachten müssen, ist die, die Sie mit dem regulären Arbeitsblatt machen, und Sie können dasselbe auch in VBA replizieren. Ein solches Schlüsselwort in der VBA-Codierung ist "XLUP" in diesem Artikel. Wir zeigen Ihnen, was dieses Schlüsselwort in der VBA-Codierung ist und wie Sie es in der Codierung verwenden.

Wie verwende ich VBA XLUP beim Codieren?

Im Folgenden finden Sie Beispiele für Excel VBA XLUP.

Beispiel 1 - Verschieben von Zellen an die gelöschte Position von Zellen

Schauen Sie sich beispielsweise das Szenario der folgenden Daten an, in dem Sie diese farbigen Zellendaten löschen müssen, und die Daten in den folgenden Zeilen auf die obigen Daten.

Eine Möglichkeit, dies im Arbeitsblatt zu löschen, besteht darin, diejenigen Zellen auszuwählen, in denen wir einfach die gesamte Zeile selbst löschen können. Aber hier sind Situationen etwas schwierig, da ich in Tabelle 1 farbige Zellen habe, wenn wir die gesamte Zeile löschen. Selbst die Zeilen in Tabelle 2 werden ebenfalls gelöscht, aber wir möchten nicht, dass dies geschieht. Stattdessen müssen nur farbige Zeilen gelöscht werden, und unter den Zellen sollte die Position der gelöschten Zellen nach oben verschoben werden.

Wählen Sie zunächst die farbigen Zellen aus und drücken Sie Strg + Minus-Symbol (-) , um die Option „Löschen“ zu öffnen.

Tastenkombination zum Öffnen der Option "Löschen"

Im Fenster "Löschen" haben wir vier Optionen. Wir können die Aktion gemäß unserer Anforderung auswählen. Da wir unsere Zellen für diese gelöschte Zellenposition nach oben verschieben müssen, wählen Sie "Zelle nach oben verschieben".

Wir haben unveränderte Zeilen in Tabelle 2.

Diese Aktion in VBA erfordert die Verwendung der Eigenschaft "XLUP", um ähnliche Aktionen in VBA auszuführen. Kommen Sie nun zum Fenster des VBA-Editors und starten Sie Ihren Makronamen.

Code:

Sub XLUP_Example () End Sub

Geben Sie zunächst den Zellenbereich an, der in diesen Vorgang einbezogen werden soll. In dieser Aktion werden als erste Zellen "A5: B5" -Zellen gelöscht und nach oben verschoben.

Code:

Sub XLUP_Example () Range ("A5: B5") End Sub

Wählen Sie für diesen Zellenbereich die Methode „Löschen“.

Code:

Sub XLUP_Example () Range ("A5: B5"). End Sub löschen

Wie Sie für die Methode "Löschen" sehen können, haben wir ein optionales Argument als (Umschalt). Für dieses Argument müssen wir das Argument als "XLUP" eingeben.

Code:

Sub XLUP_Example () Bereich ("A5: B5"). Verschiebung löschen: = xlUp End Sub

Jetzt können Sie diesen Code manuell oder über die Tastenkombination F5 ausführen, um das Ergebnis anzuzeigen.

Wie Sie in Tabelle 1 sehen können, wir Zeilennummer 6 bewegt bis zu 5 haben ^th Reihe und auf der anderen Seite der Tabelle, 2 Zeile (farbig) ist unverändert, so durch die „VBA xlUp“ Option verwenden, können wir diesen Vorgang tun .

Beispiel 2 - Suchen der zuletzt verwendeten Zeile mithilfe von XLUP

Stellen Sie sich eine Situation vor, in der Sie sich in der A20-Zelle befinden (siehe Abbildung unten) und Ihre zuletzt verwendete Zelle A14 ist.

Wenn Sie nun die zuletzt verwendete Zelle (A14) auswählen möchten, wie werden Sie mit einer Tastenkombination vorgehen?

Wir würden Strg + Aufwärtspfeiltaste verwenden, um von der aktuellen Position zur zuletzt verwendeten Zelle zu gelangen.

Tastenkombination zum Verschieben zur zuletzt verwendeten Zelle

Aus der aktuellen Zelle wählte Strg + Aufwärtspfeil die zuletzt verwendete Zelle aus. In ähnlicher Weise verwenden wir bei der VBA-Codierung END (XLUP) , um dasselbe auszuführen.

Kehren Sie nun zum VBA-Codierungsfenster zurück.

In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.

Code:

Sub XLUP_Example1() End Sub

To store the last used row number. define the variable as the VBA LONG data type.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub

Now for this variable, we will assign the last used row number.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub

Now use the RANGE object and open this object.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub

Now mention the active cell (A20) for RANGE object.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub

Now open END property for supplied range cell.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub

As you can see above, we have to arrow key options like “xlDown,” “xlToLeft,” “xlToRight,” “xlUp.” Since we are moving up from the A14 cell, choose the “VBA XLUP” option.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub

After moving up from A14 cell, we need to mention what we need to do since we need the last used row number, I will use ROW property.

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub

Now for the message box, assign the value of variable “Last_Row_Number.”

Code:

Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub

Now you can run this code manually or through shortcut key F5 to see the result.

So message box showing the last used row number as 14, so our last data used row number is A14 cell.

In this case, since the data is very small, we started the room cell, but when the data is large, we cannot say which cell to take into consideration first. In such cases, we need to employ a different technique.

We need to use CELLS property. Below is an example of the same.

Code:

Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub

Now you can run this code manually or through shortcut key F5 to see the result.

Anstelle eines RANGE-Objekts habe ich die CELLS-Eigenschaft verwendet. Lassen Sie mich Ihnen dies ausführlich erklären.

ROW.COUNT Hiermit wird gezählt, wie viele Zeilen in Spalte 1 vorhanden sind. Dabei wird die letzte Zelle im Arbeitsblatt anstelle der zufälligen Zellenadresse berücksichtigt. Im obigen Fall haben wir A14 als zufällige Zellenadresse verwendet.

Dinge, an die Sie sich bei VBA XLUP erinnern sollten

• XLUP ist das Wort, das im VBA-Code verwendet wird, um die Aktion der Aufwärtspfeiltaste in Excel zu replizieren.
• VBA XLUP wird verwendet, um von aktiven Zellen zur obigen oder zuletzt verwendeten Zelle zu wechseln.
• XLUP wird im Allgemeinen zusammen mit der END-Eigenschaft in VBA verwendet.