Wenn Sie schon eine Weile mit Microsoft Excel arbeiten, wissen Sie, wie wichtig AutoFill ist. Um eine Formel über die Zeile oder Spalte zu kopieren, verwenden wir diese Methode. Jetzt können wir dies manuell mit der Maus tun. Aber wenn Sie eine große Zeile mit Daten haben, wird es schwierig sein, eine Formel in die letzte Zeile oder Spalte zu kopieren. Sie können den VBA-Code verwenden, um eine Formel in die letzte Zeile oder Spalte mit AutoFill zu kopierenLeichtigkeit.

In diesem Tutorial lernen Sie, wie Sie mit Hilfe von VBA-Codes eine Formel in der letzten Zeile von Excel automatisch ausfüllen können. Dieses Tutorial wird mit geeigneten Beispielen und Illustrationen versehen. Bleiben Sie also bei uns.

Download Arbeitsbuch Praxis

Autofill-Formel für die letzte Zeile.xlsm

Was ist AutoFill in Excel?

Das automatische Ausfüllen ist eine integrierte Funktion von Microsoft Excel, die es dem Benutzer ermöglicht, den Rest der Zeilen oder Spalten automatisch mit Werten, Formaten oder Formeln auszufüllen. Sie können es erkennen, wenn Sie den Cursor in die rechte untere Ecke einer beliebigen Zelle bewegen. Wir nennen es Autofill-Handler von Excel.

Werfen Sie einen Blick auf den folgenden Screenshot:

Hier sehen Sie zwei Zahlen, die restlichen Zeilen füllen wir mit der Autofill-Funktion von Excel aus.

Wählen Sie zunächst den Bereich der Zellen B5:B6 aus. Danach sehen Sie in der rechten unteren Ecke den Griff zum automatischen Ausfüllen.

Ziehen Sie nun diesen Griff zum automatischen Ausfüllen nach unten.

Wie Sie sehen können, hat Excel die restlichen Zellen automatisch ausgefüllt. Dies ist die grundlegende Verwendung der automatischen Ausfüllung in Excel.

AutoFill mit Excel VBA verwenden

Wenn Sie eine große Anzahl von Zeilen oder Spalten in einem bestimmten Bereich haben, müssen Sie den Ziehpunkt für das automatische Ausfüllen in die letzte Zeile oder Spalte ziehen. Das ist ein sehr hektischer Prozess. Zum Glück können Sie ihn mit den VBA-Codes in Excel minimieren. Sie können den VBA-Code verwenden, um die Zellen automatisch mit Werten, Formeln oder Formaten auszufüllen.

Die Generische Syntax:

Bereich.AutoFill Ziel, Typ

Hier,

Bereich("B5"): Die Zelle, die das Hauptmuster hat, um den Rest der Serie zu füllen.

Zielort: Bereich der Zellen, die mit der Musterserie gefüllt werden sollen.

Typ als xlAutoFillType: Die Art der Serienausfüllung: Es gibt verschiedene Arten der automatischen Ausfüllung, die Sie auswählen können.

Lesen Sie mehr: Verwendung von VBA AutoFill in Excel

4 Arten von AutoFill in Excel VBA

In diesem Abschnitt werde ich einige Arten der automatischen Ausfüllung besprechen. Wir haben bereits gesehen, dass wir jede Art der automatischen Ausfüllung mit der Option xlAutoFillType. Hier zeige ich Ihnen einige Beispiele dafür.

1. xlFillDefault

Diese Art des automatischen Ausfüllens haben wir bereits im vorherigen Beispiel gesehen.

Werfen Sie einen Blick auf den Screenshot:

Geben Sie den folgenden VBA-Code ein, um den Rest der Zellen automatisch auszufüllen:

 Sub xlDefault_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillDefault End Sub 

Führen Sie nun das VBA-Makro aus, und Sie werden Folgendes sehen:

Der Rest der Zellen wird automatisch mit Hilfe eines VBA-Makros ausgefüllt.

2. xlFillCopy

Um die gleichen Werte zu kopieren, können Sie den Typ xlFillCopy in der Art des automatischen Ausfüllens.

Schauen Sie sich den Screenshot an:

Geben Sie den folgenden VBA-Code ein, um den Rest der Zellen automatisch auszufüllen:

 Sub xlFillCopy_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillCopy End Sub 

Führen Sie nun das VBA-Makro aus, und Sie werden Folgendes sehen:

Excel füllt die übrigen Zellen mit demselben Muster von Werten.

3. xlFillMonths

Sie können die Monate auch mit der Option xlFillMonths Autofill-Typ.

Werfen Sie einen Blick auf den Screenshot:

Hier haben wir die beiden Monate Januar und Februar eingetragen.

Geben Sie den folgenden VBA-Code ein, um den Rest der Zellen automatisch auszufüllen:

 Sub xlFillMonths_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillMonths End Sub 

Führen Sie nun das VBA-Makro aus, und Sie werden Folgendes sehen:

Excel versteht die Muster automatisch und füllt sie mit ihnen aus.

4. xlFillFormats

Sie können mit der VBA-Autofill-Funktion auch Formate in andere Zellen kopieren. Dazu müssen Sie die xlFillFormats Autofill-Typ.

Werfen Sie einen Blick auf den Screenshot:

Hier haben wir die beiden Zellen mit einigen Farben gefüllt.

Geben Sie nun den folgenden VBA-Code ein, um die restlichen Zellen automatisch auszufüllen:

 Sub xlFillFormats_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillFormats End Sub 

Führen Sie nun das VBA-Makro aus, und Sie werden Folgendes sehen:

Wie Sie sehen, nutzt unser VBA-Makro die automatische Ausfüllung, um die Zeilen der Spalte B effektiv zu füllen.

Lesen Sie mehr: Automatisches Ausfüllen von Monaten in Excel

5 Beispiele mit AutoFill-Formel zur letzten Zeile in Excel VBA

1 VBA zum automatischen Ausfüllen einer Formel in die zuletzt verwendete Zeile

Wenn Sie die vorangegangenen Abschnitte gelesen haben, können Sie dies problemlos durchführen. Das Problem entsteht, wenn Sie die Formel automatisch bis zur letzten Zeile ausfüllen müssen. Sie müssen zuerst die zuletzt verwendete Zeile identifizieren. Danach wird der VBA-Code sie automatisch ausfüllen.

Werfen Sie einen Blick auf den folgenden Datensatz:

Hier haben wir einen Umsatzdatensatz von einigen Verkäufern. Unser Ziel ist es, die Umsätze von Januar und Februar zur Spalte Gesamt hinzuzufügen. Danach werden wir die Autofill-Methode mit Hilfe von VBA auf die zuletzt verwendete Zeile in Excel anwenden.

Um dies auszuführen, geben Sie den folgenden Code ein:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Sie gibt die zuletzt verwendete Zeile aus der Spalte B zurück. Sie können eine beliebige Spalte aus Ihrem Datensatz wählen.

Range("E5").Formula = "=SUM(C5:D5)": Wir addieren den Umsatz von Zelle C5 und D5.

Range("E5").AutoFill Destination:=Range("E5:E" & last_row): Nachdem wir das Ergebnis erhalten haben, verwenden wir die automatische Ausfüllfunktion, die ab Zelle E5 auf die zuletzt verwendete Zeile, die wir zuvor erhalten haben.

Führen Sie nun das VBA-Makro aus, und Sie erhalten die folgende Ausgabe:

Wie Sie sehen können, fügt unser VBA-Code das erste Ergebnis und die automatische Ausfüllung der Formel in die letzte Zeile von Excel ein.

Lesen Sie mehr: Wie man in Excel bis zur letzten Zeile mit Daten füllt

2) VBA AutoFill von ActiveCell bis zur letzten Zeile

Wenn Sie bei der Methode zum automatischen Ausfüllen keinen bestimmten Bereich verwenden möchten, können Sie die Werte, Formeln oder Formate der aktiven Zelle verwenden. Wenn Sie auf eine Zelle klicken und den Rest der Zeilen mit der Formel der aktiven Zelle automatisch ausfüllen möchten, verwenden Sie diese Methode.

Es ist ähnlich wie im vorherigen Beispiel, wir verwenden den vorherigen Datensatz:

Jetzt fügen wir die Umsätze von Januar und Februar hinzu und füllen die Formel in der letzten Zeile mit Excel VBA automatisch aus.

Geben Sie nun den folgenden Code ein:

 Sub autofill_active_cell() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row ActiveCell.Formula = "=SUM(C5:D5)" ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Sie gibt die zuletzt verwendete Zeile aus der Spalte B zurück. Sie können eine beliebige Spalte aus Ihrem Datensatz wählen.

ActiveCell.Formula = "=SUMME(C5:D5)": Wir addieren den Umsatz von Zelle C5 und D5 in der von Ihnen gewählten Zelle.

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row): Nachdem wir das Ergebnis erhalten haben, verwenden wir die automatische Ausfüllung, die von der aktiven Zelle bis zur zuletzt verwendeten Zeile reicht, die wir zuvor erhalten haben.

Wählen Sie nun Zelle E5 .

Führen Sie anschließend das VBA-Makro aus, um die Formel und das automatische Ausfüllen in die letzte Zeile einzufügen.

Wie Sie sehen, haben wir das VBA-Makro erfolgreich zum automatischen Ausfüllen der Formel in der letzten Zeile verwendet.

Ähnliche Lektüre

• Wie man Zeilen in Excel eine bestimmte Anzahl von Malen wiederholt (4 Möglichkeiten)
• Automatisches Nummerieren von Zeilen in Excel (8 Methoden)
• Wie füllt man eine Spalte in Excel mit demselben Wert (9 Tricks)
• AutoFill-Verknüpfung in Excel anwenden (7 Methoden)

3 Automatisches Ausfüllen bis zur letzten Zeile mit dynamischem Bereich mit Excel VBA

Wir haben Ihnen bereits einige VBA-Makros zum automatischen Ausfüllen der letzten Zeile in Excel gezeigt. In diesen Beispielen haben wir bereits dynamische Bereiche verwendet.

Um statische Bereiche zu verstehen, sehen Sie sich den folgenden Code an:

 Sub last_used_row() Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E11") End Sub 

Im Grunde haben wir Excel angewiesen, eine Formel in Zelle E5 und füllt sie automatisch aus Zelle E5 zu Zelle E11 Was ist, wenn Sie weitere Zeilen hinzufügen? In diesem Fall wird unser VBA diese zusätzlichen Zeilen nicht automatisch ausfüllen, da wir bereits gesagt haben, dass es einen bestimmten Bereich automatisch ausfüllen soll.

Um dieses Problem zu lösen, habe ich eine Lösung gefunden, die einen dynamischen Bereich aufnehmen kann:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

Wie Sie sehen können, finden wir mit dieser Codezeile zunächst die letzte Zeile:

 last_row = Cells(Rows.Count, 2).End(xlUp).Row 

Danach wird die letzte Zeile unter Verwendung des dynamischen Bereichs automatisch ausgefüllt:

 Range("E5").AutoFill Destination:=Range("E5:E" & last_row) 

Egal, wie viele Zeilen Sie Ihrem Datensatz hinzufügen, dieser VBA-Code wird sie erfolgreich identifizieren und automatisch mit der Formel ausfüllen.

Dynamischer Bereich bedeutet im Grunde, dass Sie den Bereich nicht manuell eingeben müssen, sondern dass Excel ihn von Zeit zu Zeit aktualisiert.

Lesen Sie mehr: Excel VBA: Autofill-Methode der Range-Klasse fehlgeschlagen

4 AutoFill bis zur letzten Spalte in Excel mit VBA

Wenn Sie die vorangegangenen Abschnitte über das automatische Ausfüllen bis zur letzten Zeile gelesen haben, können Sie auch die letzte Spalte automatisch ausfüllen, indem Sie einfach die letzte Spaltennummer finden und sie mit Excel VBA automatisch ausfüllen.

Werfen Sie einen Blick auf den folgenden Datensatz:

Hier haben wir einen Datensatz, der das 3-Monats-Budget einer Person darstellt. Jetzt werden wir die Ausgaben aller Monate addieren und die Formel in der letzten Spalte mit Excel VBA automatisch ausfüllen.

Geben Sie nun den folgenden Code ein:

 Sub last_used_column() Dim last_row As Long last_column = Cells(6, Columns.Count).End(xlToLeft).Column Range("D9").Formula = "=SUM(D6:D8)" Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)) End Sub 

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: Es wird die zuletzt verwendete Spalte aus der Zeile 6 zurückgegeben. Sie können eine beliebige Zeile aus Ihrem Datensatz als Ausgangspunkt wählen.

Range("D9").Formula = "=SUM(D6:D8)": Wir addieren die Kosten für drei Monate (Januar, Februar, März).

Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)): Nachdem wir das Ergebnis erhalten haben, verwenden wir die automatische Ausfüllung. Hier ist unsere Hauptzeile die Zeile Nummer 9. Alle unsere Daten werden in dieser Zeile stehen. Die automatische Ausfüllung beginnt mit der Spalte D auf die zuletzt verwendete Spalte, die wir zuvor durch die letzte_spalte .

Nach der Ausführung des Makros sehen Sie die folgende Ausgabe:

Wie Sie sehen können, haben wir die VBA erfolgreich verwendet, um die Formel in der letzten Spalte in Excel automatisch auszufüllen.

Lesen Sie mehr: Automatisches Ausfüllen einer Spalte in Excel

5 Automatisches Ausfüllen von fortlaufenden Nummern in der letzten Zeile in Excel mit VBA

Sie können auch fortlaufende Nummern automatisch ausfüllen, indem Sie die Autofill-Funktion in VBA verwenden. xlFillSeries Excel versteht das Muster und füllt sie damit aus.

Werfen Sie einen Blick auf den folgenden Screenshot:

Hier haben wir einige Namen, denen wir eine fortlaufende ID geben wollen. Dazu verwenden wir die VBA-Autofill-Funktion.

Automatisches Ausfüllen fortlaufender Nummern mit statischem Bereich:

 Sub fortlaufende_Zahl_2() Bereich("C5").AutoFill Ziel:=Bereich("C5:C11"), Typ:=xlFillSeries End Sub 

Nachdem Sie den Code ausgeführt haben, sehen Sie die Ausgabe:

Wenn Sie den dynamischen Bereich nutzen wollen, verwenden Sie den folgenden Code:

 Sub sequential_number_1() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Sie gibt die zuletzt verwendete Zeile aus der Spalte B zurück.

Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries: Es wird die ID von Zelle C5 und füllt automatisch die zuletzt verwendete Zeile in der Spalte C unter Verwendung der xlFillSeries ,

In beiden Fällen erhalten Sie das gleiche Ergebnis:

Wie Sie sehen können, haben wir den VBA-Code erfolgreich zum automatischen Ausfüllen von fortlaufenden Nummern in Excel verwendet.

Lesen Sie mehr: Excel-Formeln zum Ausfüllen von fortlaufenden Nummern Ausgeblendete Zeilen überspringen

💬 Dinge zum Merken

✎ Sie können das automatische Ausfüllen stoppen auf verschiedene Arten, wenn Sie es nicht wollen .

✎ Sie können nicht mehrere Zeilen und Spalten gleichzeitig automatisch ausfüllen, sondern nur eine nach der anderen.

Schlussfolgerung

Abschließend hoffe ich, dass dieses Tutorial Ihnen nützliches Wissen vermittelt hat, um die Formel mit Hilfe der VBA-Codes bis zur letzten Zeile automatisch auszufüllen. Wir empfehlen Ihnen, all diese Anweisungen zu erlernen und auf Ihren Datensatz anzuwenden. Laden Sie die Übungsmappe herunter und probieren Sie sie selbst aus. Außerdem können Sie uns gerne im Kommentarbereich Ihr Feedback geben. Ihr wertvolles Feedback motiviert uns, Tutorials wiedies.

Vergessen Sie nicht, unsere Website zu besuchen Exceldemy.com für verschiedene Excel-bezogene Probleme und Lösungen.

Lernen Sie weiter neue Methoden und wachsen Sie weiter!