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
Note: 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.
Note: 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.
Note: 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 (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
In Verbindung stehende Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!