VBA-Zeile einfügen

Das Einfügen einer Zeile in VBA unterscheidet sich etwas vom Einfügen einer Spalte in VBA. In Spalten haben wir die gesamte Spaltenmethode verwendet. Zum Einfügen von Zeilen verwenden wir jedoch die Arbeitsblattmethode mit dem Befehl insert, um eine Zeile einzufügen. Außerdem stellen wir eine Zeilenreferenz bereit, in die wir einfügen möchten eine weitere Zeile ähnlich den Spalten.

Zeile mit VBA Excel einfügen

Wir können fast alle Aktionen ausführen, die wir in Excel mit VBA-Codierung ausführen. Wir können kopieren, einfügen, löschen und durch die VBA-Sprache noch viel mehr tun. "Einfügen von Zeilen" ist eine dieser Methoden, die wir häufig in Excel anwenden. In diesem Artikel zeigen wir Ihnen, wie Sie die Methode zum Einfügen von Zeilen in VBA ausführen.

Wie füge ich eine Zeile in Excel VBA ein?

Nachfolgend finden Sie die verschiedenen Methoden zur Verwendung von VBA zum Einfügen einer Zeile in Excel.

Methode 1 - Verwenden der Einfügemethode

In VBA müssen wir zum Einfügen einer Zeile eine ähnliche Technik verwenden, die wir im Excel-Arbeitsblatt verwendet haben. In VBA müssen wir das Bereichsobjekt verwenden, um die Zeile einzufügen.

Schauen Sie sich zum Beispiel den folgenden Code an.

Code:

 Sub InsertRow_Example1 () Range ("A1"). Insert End Sub

Dieser Code bewegt sich die Zelle A1 hinunter nach B1 und fügt die einzige Zelle ein.

Dies wird so viele Probleme beim Umgang mit den Daten verursachen. Dadurch wird nur die erwähnte Zelle nach unten verschoben, und alle anderen zugeordneten Spalten bleiben gleich.

Methode 2 - Verwenden der gesamten Zeileneigenschaft

In der oberen Einfügungszeile können wir tatsächlich mehrere Methoden verwenden. Mit der folgenden Methode wird die gesamte Zeile über der ausgewählten Zelle eingefügt.

Schritt 1: Erwähnen Sie zuerst die Zellenadresse .

Code:

Sub InsertRow_Example2 () Range ("A1"). End Sub

Schritt 2: Anstatt nur zu verwenden, wählen Sie die Eigenschaft " Ganze Zeile ".

Code:

Sub InsertRow_Example2 () Range ("A1"). EntireRow. End Sub

Schritt 3: Verwenden Sie nach dem Zugriff auf die gesamte Zeileneigenschaft die Einfügemethode .

Code:

 Sub InsertRow_Example2 () Range ("A1"). EntireRow.Insert End Sub

Dadurch wird die Zeile über der Zelle A1 eingefügt. Da A1 die erste Zeile ist, wird die A1-Zelle nach unten zu B1 verschoben.

Wie Sie im obigen Bild sehen können, muss die gesamte Zeile eingefügt werden, nicht die einzelne Zelle.

Methode 3 - Verwenden von Zeilennummern

Im obigen Beispiel haben wir gerade die Einzelzellenadresse verwendet und die Zeile eingefügt. Wir können sie jedoch auch mithilfe von Zeilennummern einfügen.

Angenommen, Sie möchten eine Zeile unterhalb der 5. Zeile einfügen. Zuerst müssen wir die Zeilennummern mit dem RANGE-Objekt erwähnen.

Code:

Sub InsertRow_Example3 () Bereich ("6: 6"). End Sub

Da wir die gesamte Zeile als 6: 6 erwähnt haben, müssen wir hier die Eigenschaft "Gesamte Zeile" verwenden. Wir können direkt die Methode "INSERT" verwenden.

Code:

 Sub InsertRow_Example3 () Range ("6: 6"). End Sub einfügen

Dadurch wird auch die gesamte Zeile und nicht die einzelne Zelle eingefügt.

Wenn Sie zwei Zeilen unterhalb der 5. Zeile einfügen möchten, müssen Sie zuerst zwei Zeilen auswählen und dann die INSERT-Methode verwenden.

 Sub InsertRow_Example3 () Range ("6: 7"). End Sub einfügen

Dadurch werden zwei Zeilen unterhalb der 5. Zeile eingefügt.

Auf diese Weise können wir so viele Zeilen wie möglich in das Arbeitsblatt einfügen.

Methode 4 - Verwenden der Active Cell-Eigenschaft

Wir können die Active Cell VBA-Eigenschaft verwenden, um Zeilen einzufügen. Die aktive Zelle ist nichts anderes als eine gegenwärtig ausgewählte Zelle.

Angenommen, Sie befinden sich in der Zelle B5 und möchten eine Zeile darüber einfügen. Sie können die aktive Zelleigenschaft verwenden.

 Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub

Dadurch wird die Zeile über der aktiven Zelle eingefügt.

Methode 5 - Verwenden der Active Cell-Eigenschaft mit Offset-Funktion

Angenommen, Sie möchten eine Zeile nach 2 Zeilen der aktiven Zelle einfügen, müssen Sie die Versatzfunktion verwenden, um die Anzahl der Zeilen zu versetzen.

Angenommen, Sie befinden sich in der B5-Zelle.

Wenn Sie die Zeile nach der 2. Zeile aus der aktiven Zelle einfügen möchten, können Sie den folgenden Code verwenden.

Code:

 Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Dadurch wird eine Zeile nach der 6. Zeile eingefügt.

Alternative Zeilen einfügen

Das Einfügen alternativer Zeilen ist mir oft begegnet. Für den Blick auf das unten stehende Datenbild.

Jetzt müssen wir alternative Zeilen einfügen. Wir müssen Schleifen verwenden, um jede alternative Zeile einzufügen.

Code:

 Sub InsertRow_Example6 () Dim K als Ganzzahl Dim X als Ganzzahl X = 1 Für K = 1 bis 4 Zellen (X, 1) .EntireRow.Insert X = X + 2 Next K End Sub

Dadurch werden Zeilen wie diese eingefügt.

Sie können dieses VBA Insert Row Excel hier herunterladen. VBA Excel-Vorlage für Zeilen einfügen