Wie verschiebe ich die gesamte Zeile basierend auf dem Zellenwert in Excel auf ein anderes Blatt?
Dieser Artikel hilft Ihnen beim Verschieben der gesamten Zeile auf ein anderes Blatt basierend auf dem Zellenwert.
Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert mit VBA-Code auf ein anderes Blatt
Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert mit Kutools for Excel auf ein anderes Blatt
Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert mit VBA-Code auf ein anderes Blatt
Wie im folgenden Screenshot gezeigt, müssen Sie die gesamte Zeile von Sheet1 nach Sheet2 verschieben, wenn in Spalte C ein bestimmtes Wort "Done" vorhanden ist. Sie können den folgenden VBA-Code ausprobieren.
1. Drücken Sie Andere+ F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Hinweis: Im Code, Sheet1 ist das Arbeitsblatt enthält die Zeile, die Sie verschieben möchten. Und Sheet2 ist das Zielarbeitsblatt, in dem Sie die Zeile finden. „C: C."Ist die Spalte enthält den bestimmten Wert und das Wort"Erledigt ”Ist der bestimmte Wert, basierend auf dem Sie die Zeile verschieben. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
3. Drücken Sie die Taste F5 Wenn Sie den Code ausführen, um den Code auszuführen, wird die Zeile, die die Kriterien in Sheet1 erfüllt, sofort in Sheet2 verschoben.
Hinweis: Der obige VBA-Code löscht Zeilen aus den Originaldaten, nachdem er zu einem angegebenen Arbeitsblatt verschoben wurde. Wenn Sie nur Zeilen basierend auf dem Zellenwert kopieren möchten, anstatt sie zu löschen. Bitte wenden Sie den folgenden VBA-Code 2 an.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert mit Kutools for Excel auf ein anderes Blatt
Wenn Sie ein Neuling im VBA-Code sind. Hier stelle ich das vor Wählen Sie Bestimmte Zellen aus Nutzen von Kutools for Excel. Mit diesem Dienstprogramm können Sie einfach alle Zeilen basierend auf einem bestimmten Zellenwert oder verschiedenen Zellenwerten in einem Arbeitsblatt auswählen und die ausgewählten Zeilen nach Bedarf in das Zielarbeitsblatt kopieren. Bitte gehen Sie wie folgt vor.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1. Wählen Sie aus, dass die Spaltenliste den Zellenwert enthält, auf dem die Zeilen verschoben werden sollen, und klicken Sie dann auf Kutoolen > Auswählen > Wählen Sie Bestimmte Zellen aus. Siehe Screenshot:
2. In der Öffnung Wählen Sie Bestimmte Zellen aus Dialogfeld, wählen Sie Ganze Reihe der Auswahltyp Abschnitt auswählen Equals der Spezifischer Typ Geben Sie in der Dropdown-Liste den Zellenwert in das Textfeld ein und klicken Sie auf OK .
Ein anderer Wählen Sie Bestimmte Zellen aus Das Dialogfeld wird angezeigt, in dem die Anzahl der ausgewählten Zeilen angezeigt wird. In der Zwischenzeit wurden alle Zeilen ausgewählt, die den angegebenen Wert in der ausgewählten Spalte enthalten. Siehe Screenshot:
3. Drücken Sie die Taste Ctrl + C Tasten, um die ausgewählten Zeilen zu kopieren und sie dann in das gewünschte Zielarbeitsblatt einzufügen.
Hinweis: Wenn Sie Zeilen basierend auf zwei verschiedenen Zellenwerten in ein anderes Arbeitsblatt verschieben möchten. Verschieben Sie beispielsweise Zeilen basierend auf den Zellenwerten entweder "Fertig" oder "Verarbeitung". Sie können die Option aktivieren Or Zustand in der Wählen Sie Bestimmte Zellen aus Dialogfeld wie unten Screenshot gezeigt:
Wenn Sie eine kostenlose Testversion wünschen (30-Tag) dieses Dienstprogramms, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
In Verbindung stehende Artikel:
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!































































