Inhaltsverzeichnis
Daten zur Bewältigung von einem Blatt auf ein anderes zu kopieren, ist eine der häufigsten Aufgaben in Excel. Wenn Sie viele Zeilen haben und diese nach bestimmten Kriterien auf ein anderes Blatt kopieren wollen, kann das ziemlich mühsam und zeitaufwändig sein. Aber mit Microsoft Visual Basic-Anwendung (VBA) können Sie Makros erstellen, mit denen Sie auf einfache Weise Daten auf der Grundlage verschiedener Kriterien von einem Blatt in ein anderes kopieren können. In diesem Artikel zeige ich Ihnen wie Sie Zeilen kopieren können in ein anderes Arbeitsblatt auf der Grundlage von 2 verschiedenen Arten von Kriterien mit Hilfe von Excel VBA .
Angenommen, Sie haben den folgenden Datensatz in einem Arbeitsblatt mit dem Namen " Daten "Nun möchten Sie bestimmte Zeilen auf der Grundlage bestimmter Kriterien in ein anderes Blatt kopieren.
Download Arbeitsbuch Praxis
Zeilen auf der Grundlage von Kriterien in ein anderes Arbeitsblatt kopieren.xlsm2 Möglichkeiten zum Kopieren von Zeilen in ein anderes Arbeitsblatt anhand von Kriterien mit Excel VBA
1 Zeilen anhand von Textkriterien in ein anderes Arbeitsblatt kopieren
In dieser Demonstration zeige ich Ihnen, wie Sie Zeilen anhand von Textkriterien von einem Arbeitsblatt in ein anderes kopieren. Angenommen, Sie möchten die Daten der Verkäufer kopieren, die in Virginia in einem Arbeitsblatt namens Bereich Vertrieb mit Excel VBA Um das zu tun, müssen Sie zuerst,
➤ Presse ALT+F11 zum Öffnen des VBA Fenster.
In der VBA Fenster,
➤ Klicken Sie auf das Symbol einfügen. und wählen Sie Modul .
Sie öffnet die Modul(Code) Fenster. Jetzt,
➤ Fügen Sie den folgenden Code in die Datei Modul(Code) Fenster,
Sub Copy_Criteria_Text() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("C1", Range("C" & Rows.Count).End(xlUp)) .AutoFilter 1, "Virginia" On Error Resume Next .Offset(1).EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating = TrueSheet3.Select End Sub Der Code erstellt ein Makro namens Kopieren_Kriterien_Text die nach Virginia in der Spalte suchen wird C des aktuellen Arbeitsblatts und gibt die Zeilen zurück, die Virginia in dem Arbeitsblatt mit dem Namen Bereich Vertrieb (Blatt3).
Und dann,
➤ Schließen oder minimieren Sie die VBA Fenster.
➤ Presse ALT+F8
Sie öffnet die Makro Fenster.
➤ Auswählen Kopieren_Kriterien_Text im Makro-Name Box und klicken Sie auf ausführen. .
Infolgedessen werden die Zeilen mit Virginia in das Arbeitsblatt mit dem Namen Bereich Vertrieb
Lesen Sie mehr: Wie man in Excel automatisch Zeilen in ein anderes Blatt kopiert (4 Methoden)
2 Kopieren von Zeilen in ein anderes Arbeitsblatt anhand von Zahlenkriterien
Jetzt zeige ich Ihnen, wie Sie Zeilen aus einem Arbeitsblatt in ein anderes Arbeitsblatt kopieren können, das auf Zahlenkriterien basiert. Angenommen, Sie möchten die Daten der Verkäufe, die größer als 100000 $ sind, in ein Arbeitsblatt mit dem Namen Top-Verkäufe Um das zu tun, müssen Sie zuerst,
➤ Presse ALT+F11 zum Öffnen des VBA Fenster.
In der VBA Fenster,
➤ Klicken Sie auf das Symbol einfügen. Registerkarte und wählen Sie Modul .
Sie öffnet die Modul(Code) Fenster. Jetzt,
➤ Fügen Sie den folgenden Code in die Datei Modul(Code) Fenster,
Sub Copy_Criteria_Number() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("D1", Range("D" & Rows.Count).End(xlUp)) .AutoFilter 1, ">100000" On Error Resume Next .Offset(1).EntireRow.Copy Sheet4.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating =True Sheet4.Select End Sub Der Code erstellt ein Makro namens Kopieren_Kriterien_Nummer die in der Spalte nach Werten größer als 100000 sucht D des Arbeitsblatts mit dem Namen Daten und geben Sie die Zeilen zurück, die Verkaufswerte von mehr als 100000 $ im Arbeitsblatt Top-Verkäufe (Blatt4).
Und dann,
➤ Schließen oder minimieren Sie die VBA Fenster.
➤ Presse ALT+F8
Sie öffnet die Makro Fenster.
➤ Auswählen Kopieren_Kriterien_Nummer im Makro-Name Box und klicken Sie auf ausführen. .
Infolgedessen werden die Zeilen, die Verkaufswerte von mehr als 100000 $ enthalten, in die Datei Top-Verkäufe Arbeitsblatt.
Lesen Sie mehr: Mehrere Zeilen in Excel mit Makro kopieren (4 Beispiele)
Schlussfolgerung
Mit den beiden Methoden dieses Artikels können Sie mit Excel VBA Zeilen von einem Arbeitsblatt in ein anderes Arbeitsblatt kopieren, und zwar auf der Grundlage verschiedener Kriterien. Sie können die erste Methode für Textkriterien und die zweite Methode für Zahlenkriterien verwenden. Wenn Sie irgendeine Art von Verwirrung über eine der Methoden haben, können Sie gerne einen Kommentar hinterlassen.
