Wenn wir die VBA-Codierung schreiben, um uns die repetitive Arbeit zu ersparen, spielt die Auswahl der Daten eine sehr wichtige Rolle. In diesem Artikel erfahren Sie, wie Sie die Daten nach Zeilen, Spalten und ganzen Dokumentdaten durch VBA-Codierung in Microsoft Excel auswählen.
Du wirst lernen:
- Wie wähle ich die gesamte Spalte aus?
- Wie wähle ich die gesamte Zeile aus?
- Wie wähle ich ganze Daten aus?
Wie wählt man die gesamte Spalte über VBA aus?
Wir haben Daten im Bereich A1:C19, wobei Spalte A Name enthält, Spalte B Geschlecht und Spalte C Alter enthält.
Um die gesamte Spalte A in diesen Daten auszuwählen, folgen Sie den unten angegebenen Schritten und Code:
- Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
- Ein Modul einfügen
- Schreiben Sie den unten genannten Code:
Sub Columnselect() Range("A1").Entirecolumn.Select End Sub
- Drücken Sie die Taste F5, um das Makro in Excel auszuführen
- Spalte A wird ausgewählt
Wenn Sie möchten, dass Daten bis zur letzten aktiven Zelle in der Spalte ausgewählt werden, befolgen Sie die folgenden Schritte und den folgenden Code:
- Schreiben Sie den unten genannten Code:-
Sub Columnselect() lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row Worksheets("Sheet1").Range("A1:A" & lastrow).Select End Sub
Code-Erklärung:- Zuerst werden wir die letzte aktive Zelle in den Daten definieren und dann die letzte Zeile verwenden, um den Bereich in der Codierung zu definieren.
- Drücken Sie die Taste F5, um das Makro in Excel auszuführen
- Spalte A1:A19 wird ausgewählt
Auf diese Weise können Sie mit VBA den Code auswählen, um die Spalte bis zur letzten aktiven Zelle auszuwählen. Wenn wir nicht wissen, was die letzte aktive Zelle ist, können wir diesen Code verwenden, während wir den VBA-Code für die Auswahl in Microsoft Excel schreiben.
Wie wähle ich die gesamte Zeile über VBA aus?
Wir haben Daten im Bereich A1:C19, wobei Spalte A Name enthält, Spalte B Geschlecht und Spalte C Alter enthält.
Um die gesamte Zeile in diesen Daten auszuwählen, folgen Sie den unten angegebenen Schritten und Code:
- Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
- Ein Modul einfügen
- Schreiben Sie den unten genannten Code:-
Sub rowselect() Range("A2").EntireRow.Select End Sub
- Drücken Sie die Taste F5, um das Makro in Excel auszuführen
- Spalte A wird ausgewählt
Wenn Sie möchten, dass Daten bis zur letzten aktiven Zelle ausgewählt werden sollen, befolgen Sie die folgenden Schritte und den folgenden Code:
- Schreiben Sie den unten genannten Code:-
Sub rowselect() Dim lastcolumn As Long lastcolumn = Worksheets("Sheet1").Cells(1, Columns.count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(1, lastcolumn )).Wählen Sie End Sub
Code-Erklärung: In diesem Code hatten wir zuerst die letzte Spalte definiert, dann verwenden wir diese, um den Bereich zu definieren.
- Drücken Sie F5, um das Makro in Excel auszuführen
- Die erste Zeile wird bis zur letzten aktiven Zelle der Zeile ausgewählt
Auf diese Weise können wir die gesamte Zeile auswählen oder die Zeile bis zur letzten aktiven Zelle in Microsoft Excel über VBA auswählen.
Wie wähle ich ganze Daten über VBA aus?
Nehmen wir ein Beispiel und verstehen:-
Wir haben Daten im Bereich A1:C19, wobei Spalte A Name enthält, Spalte B Geschlecht und Spalte C Alter enthält.
Um die Daten von der ersten Zelle bis zur letzten aktiven Zelle auszuwählen, folgen Sie den unten angegebenen Schritten und Code:
- Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
- Ein Modul einfügen
- Schreiben Sie den unten genannten Code:
Sub Selectionoflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn)).Select End Sub
Code-Erklärung: Zuerst haben wir den Subjektnamen von Code definiert, dann haben wir alle Variablen definiert. Dann haben wir definiert, was unsere letzte Zeile und letzte Spalte wäre.
- Drücken Sie die Taste F5, um das Makro in Excel auszuführen
- Im Arbeitsblatt werden alle Daten ausgewählt
Wenn Sie nun dieselben Daten kopieren und einfügen möchten, verwenden Sie den folgenden Code:
Sub Selectionoflastcell() Dim lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn)).Copy Sheets("Sheet2").Range("A1") End Sub
Führen Sie den Code aus, alle Daten werden kopiert und in Sheet2 eingefügt.
Auf diese Weise können wir das Makro schreiben, um die Daten von der ersten Zelle bis zur letzten aktiven Zelle auszuwählen und dann in ein anderes Blatt in Microsoft Excel einzufügen.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site.