Dieser Lehrgang zeigt 8 Beispiele für die Verwendung VBA um die Gebrauchtes Sortiment in einer Spalte in Excel. Im Allgemeinen wird die GebrauchtBereich Eigenschaft in Excel stellt den Teil eines Arbeitsblatts dar, auf dem sich Daten befinden. Um die Beispiele zu veranschaulichen, werden wir die GebrauchtBereich Eigenschaft in einem bestimmten Datensatz für alle Beispiele.

Download Arbeitsbuch Praxis

Das Arbeitsbuch für die Praxis können wir hier herunterladen.

8 einfache Beispiele für VBA zur Auswahl von UsedRange in einer Spalte

In der folgenden Abbildung sehen wir den Datensatz, den wir für alle Beispiele verwenden werden. Der Datensatz enthält die Namen von Vertriebsmitarbeiter , ihre Standort , Region, und ' Gesamtbetrag In diesem Datensatz wird der verwendete Bereich einschließlich der Überschrift betrachtet. Der verwendete Bereich im folgenden Datensatz ist also ( B2:E15 ).

1. usedRange in Spalte mit VBA in Excel auswählen

Zuallererst werden wir alle Spalten aus unserem Datensatz auswählen. Dazu verwenden wir die Funktion VBA Wählen Sie GebrauchtBereich Sehen wir uns die Schritte zur Durchführung dieser Methode an.

SCHRITTE:

• Für den Anfang, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' Select_Spalten '.
• Wählen Sie außerdem die Option ' Code anzeigen '.

• Die obige Aktion öffnet dann ein leeres VBA Wir können dieses Code-Fenster auch aufrufen, indem wir auf Alt + F11 .
• Geben Sie anschließend den folgenden Code in das Codefenster ein:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• Klicken Sie anschließend auf die Schaltfläche ausführen. oder drücken die F5 Taste, um den Code auszuführen.

• Schließlich erhalten wir das Ergebnis wie in der folgenden Abbildung. Wir können sehen, dass der verwendete Bereich in den Spalten unseres Datensatzes nun ausgewählt ist.

2. mit VBA den gesamten benutzten Bereich in die Spalte kopieren

Im zweiten Beispiel werden wir Folgendes verwenden VBA um den gesamten verwendeten Bereich in den Spalten aus unserem Dataset zu kopieren. Im Allgemeinen verwenden wir diese Methode, um einen bestimmten Bereich aus unserem Dataset zu kopieren. Um diese Methode auszuführen, müssen wir die folgenden Schritte ausführen.

SCHRITTE:

• Wechseln Sie zunächst zur aktiven Registerkarte des Arbeitsblatts mit der Bezeichnung ' Kopieren '.
• Nächste, Rechtsklick auf auf dieser Registerkarte und wählen Sie die Option ' Code anzeigen '.

• Es öffnet sich ein leeres VBA Code-Fenster für das aktuelle Arbeitsblatt. Eine andere Möglichkeit, dieses Fenster zu erhalten, besteht darin, die Taste Alt + F11 über die Tastatur.
• Fügen Sie dann den nachstehenden Code in dieses Codefenster ein:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Um den Code auszuführen, klicken Sie auf die Schaltfläche ausführen. oder drücken die F5 Schlüssel.

• Schließlich sehen wir das Ergebnis wie folgt. Außerdem sehen wir eine Umrandung um den verwendeten Bereich. Sie zeigt an, dass der Code Daten innerhalb dieser Umrandung kopiert hat.

Lesen Sie mehr: Excel VBA: Dynamischen Bereich in eine andere Arbeitsmappe kopieren

3. die Anzahl der Spalten in UsedRange mit VBA zählen

Im dritten Beispiel zählen wir die Anzahl der Spalten in unserem Datensatz mit Hilfe von excel VBA Wählen Sie Gebrauchtes Sortiment Methode in der Spalte. Dieses Beispiel gibt die Gesamtzahl der Spalten innerhalb des verwendeten Bereichs in unserem Datensatz in einem Nachrichtenfeld zurück. Führen Sie die folgenden Schritte aus, um diese Methode auszuführen.

SCHRITTE:

• Wählen Sie zunächst das aktive Blatt mit dem Namen ' Anzahl_Spalten '.
• Zweitens, Rechtsklick auf auf den Namen des aktiven Blattes und klicken Sie auf die Option ' Code anzeigen '.

• Der obige Befehl öffnet ein leeres VBA Code-Fenster für das aktive Arbeitsblatt. Wir können das Code-Fenster auch aufrufen, indem wir auf Alt + F11 über die Tastatur.
• Drittens: Geben Sie den folgenden Code in das leere Codefenster ein:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Klicken Sie dann auf die Schaltfläche ausführen. oder drücken Sie die F5 Taste, um den Code auszuführen.

• Schließlich erhalten wir das Ergebnis in einem Nachrichtenfeld. Die Anzahl der Spalten im verwendeten Bereich ist 4 .

Lesen Sie mehr: VBA zum Zählen von Zeilen in Bereichen mit Daten in Excel verwenden (5 Makros)

4 Excel VBA zum Zählen der Anzahl der letzten Spalte im verwendeten Bereich

In der vorherigen Methode haben wir die Nummer der letzten Spalte im verwendeten Bereich extrahiert. In diesem Beispiel werden wir jedoch die Nummer der letzten Spalte im verwendeten Bereich über das gesamte Arbeitsblatt hinweg ermitteln, indem wir die VBA Wählen Sie GebrauchtBereich Schauen wir uns die Schritte an, die wir für diese Aktion durchführen müssen.

SCHRITTE:

• Für den Anfang, Rechtsklick auf auf dem aktiven Blatt mit dem Namen ' Letzte Kolumne '.
• Wählen Sie dann die Option ' Code anzeigen '.

• Der obige Befehl öffnet also ein leeres VBA Eine andere Möglichkeit, das Codefenster für dieses Arbeitsblatt zu öffnen, besteht darin, die Taste Alt + F11 .
• Danach fügen Sie den folgenden Code in das Codefenster ein:

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub 

• Klicken Sie nun auf das Feld ausführen. oder drücken die F5 Taste, um den Code auszuführen.

• Am Ende erhalten wir unser Ergebnis in einem Nachrichtenfeld. Die letzte Spalte im verwendeten Bereich ist die 5. Spalte des Arbeitsblatts.

Ähnliche Lektüre

• VBA für jede Zeile in einem Bereich in Excel verwenden
• VBA verwenden, um einen Bereich aus der aktiven Zelle in Excel auszuwählen (3 Methoden)
• Excel-Makro: Mehrere Spalten mit dynamischem Bereich sortieren (4 Methoden)

5. letzte Zelle der letzten Spalte aus UsedRange mit VBA auswählen

Im fünften Beispiel werden wir die VBA Wählen Sie Gebrauchte Palette um die letzte Zelle der letzten Spalte in einem Excel-Blatt auszuwählen. Zur Veranschaulichung dieses Beispiels fahren wir mit unserem vorherigen Datensatz fort. Schauen wir uns nun die Schritte an, um diese Methode auszuführen.

SCHRITTE:

• Wählen Sie zunächst das aktive Blatt mit dem Namen ' Letzte_Zelle '.
• Nächste, Rechtsklick auf Wählen Sie die Option '', und klicken Sie auf den Blattnamen. Code anzeigen '.

• Dann erhalten wir eine leere VBA Wir können auch die Taste Alt + F11 um dieses Code-Fenster zu öffnen.
• Danach geben Sie den folgenden Code in das Codefenster ein:

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub 

• Um den Code auszuführen, klicken Sie auf die Schaltfläche ausführen. oder drücken Sie die F5 .

• Das Ergebnis ist in der folgenden Abbildung zu sehen: Die letzte ausgewählte Zelle der letzten Spalte ist die Zelle E15 .

6. mit Excel VBA den Zellbereich des ausgewählten Verwendungsbereichs finden

In diesem Beispiel werden wir Folgendes anwenden VBA um den Zellbereich des ausgewählten Bereichs in einem Excel-Arbeitsblatt zu finden. Wir verwenden die VBA Code für alle Spalten in unserem verwendeten Bereich. Der Code gibt sowohl den Zellbereich als auch die Adresse der Spalte im verwendeten Bereich zurück. Folgen Sie den folgenden Schritten, um diese Aktion auszuführen.

SCHRITTE:

• Am Anfang, Rechtsklick auf auf der aktiven Registerkarte des Blattes mit dem Namen ' Zellenbereich finden '.
• Zweitens: Wählen Sie die Option ' Code anzeigen '.

• Es öffnet sich ein leeres VBA Eine andere Möglichkeit, dieses Code-Fenster zu öffnen, besteht darin, die Taste Alt + F11 .
• Drittens: Geben Sie den folgenden Code in das Codefenster ein:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• Um den Code auszuführen, klicken Sie dann auf die Schaltfläche ausführen. oder drücken die F5 Schlüssel.

• Am Ende wird das Ergebnis in einem Meldungsfenster wie dem folgenden Bild angezeigt.

Ähnliche Lektüre

• VBA zum Durchlaufen von Zeilen und Spalten in einem Bereich in Excel (5 Beispiele)
• Wie man in Excel VBA einen Bereich in ein Array umwandelt (3 Möglichkeiten)

7. die VBA UsedRange-Eigenschaft einfügen, um leere Zellen zu zählen

In diesem Beispiel werden wir die VBA Wählen Sie GebrauchtBereich Eigenschaft, um leere Zellen in einem Excel-Blatt zu zählen. Manchmal kann es vorkommen, dass wir leere Zellen in dem verwendeten Bereich unseres Datensatzes haben. Wir können die Anzahl dieser leeren Zellen einfach zählen, indem wir die GebrauchtBereich Schauen wir uns die Schritte an, um dieses Beispiel durchzuführen.

SCHRITTE:

• Erstens, Rechtsklick auf auf der aktiven Registerkarte des Blattes mit dem Namen ' Leere_Zellen '.
• Wählen Sie dann die Option ' Code anzeigen '.

• Die obige Aktion öffnet ein leeres VBA Sie können das Code-Fenster auch öffnen, indem Sie die Taste Alt + F11 .
• Fügen Sie dann den folgenden Code in dieses Codefenster ein:

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Total number of used cell(s)in 4 used columns is " & d & _ " and out of those " & _ j & " cell(s) are empty." End Sub 

• Danach klicken Sie auf ausführen. oder drücken die F5 Taste, um den Code auszuführen.

• Schließlich erhalten wir das Ergebnis in einem Meldungsfenster, in dem die Anzahl der Gesamtzellen und der leeren Zellen in dem von uns verwendeten Bereich angezeigt wird.

8 VBA UsedRange zum Auffinden der ersten leeren Zelle in einer Spalte in Excel

Im letzten Beispiel werden wir die Excel-Datei VBA wählen Sie die Gebrauchtes Sortiment Eigenschaft in der Spalte, um die erste leere Zelle in unserem Excel-Arbeitsblatt zu finden. Diese Methode findet die erste leere Zelle einer bestimmten Spalte. Die leere Zelle wird immer außerhalb des verwendeten Bereichs des Datensatzes liegen. Wenn also eine Zelle im verwendeten Bereich leer ist, wird sie bei dieser Methode nicht berücksichtigt. Folgen Sie nun den folgenden Schritten, um diese Methode auszuführen.

SCHRITTE:

• Für den Anfang, Rechtsklick auf auf der aktiven Registerkarte des Blattes mit dem Namen ' Erste_Leere '.
• Wählen Sie außerdem die Option ' Code anzeigen '.

• Es öffnet sich ein leeres VBA Wir können auch auf Alt + F11 um dieses Code-Fenster zu öffnen.
• Geben Sie außerdem den folgenden Code in das leere Feld ein VBA Code-Fenster:

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• Um den Code auszuführen, klicken Sie dann auf die Schaltfläche ausführen. oder drücken die F5 Schlüssel.

• Schließlich fügt der obige Code den Wert ' FirstEmptyCell in Zelle E16 Es ist die erste leere Zelle der Spalte E nach dem verwendeten Bereich des Datensatzes.

Lesen Sie mehr: Excel VBA zum Durchlaufen des Bereichs bis zur leeren Zelle (4 Beispiele)

Schlussfolgerung

Kurz gesagt, zeigt dieses Tutorial 8 Beispiele für die Verwendung der VBA Wählen Sie GebrauchtBereich Um Ihre Fähigkeiten zu testen, laden Sie das für diesen Artikel verwendete Arbeitsblatt herunter. Wenn Sie Fragen haben, können Sie diese gerne in das unten stehende Feld eintragen. Unser Team wird versuchen, so schnell wie möglich auf Ihre Nachricht zu reagieren. Halten Sie Ausschau nach weiteren innovativen Microsoft Excel Lösungen in der Zukunft.