Wie verschiebt man eine doppelte Zeile in ein anderes Arbeitsblatt in Excel?
Wenn Sie eine Liste mit einem Datenbereich haben, der in einer Spalte doppelte Werte enthält, und nun die gesamte Zeile basierend auf diesen doppelten Zellen in ein anderes Arbeitsblatt verschieben möchten – wie lösen Sie diese Aufgabe in Excel?
Verschieben Sie Ganze Zeile in ein anderes Arbeitsblatt basierend auf Doppelte Zeile
Verschieben Sie Ganze Zeile in ein anderes Arbeitsblatt basierend auf doppelten Zellen in einer Spalte
Wenn doppelte Werte in einer Spalte vorkommen, verschieben Sie die gesamte Zeile in ein anderes Arbeitsblatt. Der folgende VBA-Code unterstützt Sie dabei:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Verschieben Sie Ganze Zeile in ein anderes Arbeitsblatt basierend auf doppelten Zellen in einer Spalte:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgS As Range
Dim xRgD As Range
Dim I As Long, J As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRgS.Rows.Count
J = 0
For I = xRows To 1 Step -1
If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
xRgS(I).EntireRow.Delete
J = J + 1
End If
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im erscheinenden Dialogfeld die Spalte aus, die die doppelten Zellen enthält, auf deren Basis Sie die Daten verschieben möchten (siehe Screenshot):
4. Klicken Sie dann auf OK. In einem weiteren Dialogfeld wählen Sie eine Zelle in einem anderen Arbeitsblatt aus, in das Sie die verschobenen Zeilen einfügen möchten (siehe Screenshot):
5. Klicken Sie anschließend auf OK. Die Zeilen mit doppelten Werten in Spalte A wurden in ein neues Arbeitsblatt verschoben (siehe Screenshot):
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verschieben Sie Ganze Zeile in ein anderes Arbeitsblatt basierend auf Doppelte Zeile
Wenn Sie die Doppelte Zeile aus einem Zellbereich verschieben möchten, kann Ihnen der folgende VBA-Code helfen:
1. Halten Sie die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Verschieben Sie Ganze Zeile in ein anderes Arbeitsblatt basierend auf Doppelte Zeile:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgD As Range, xRgS As Range
Dim I As Long, J As Long, K As Long, KK As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
KK = 0
For I = xRgS.Rows.Count To 1 Step -1
For J = 1 To I - 1
For K = 1 To xRgS.Columns.Count
Debug.Print xRgS.Rows(I).Cells(, K).Value
Debug.Print xRgS.Rows(J).Cells(, K).Value
If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
Next
If K = xRgS.Columns.Count + 1 Then
xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
xRgS.Rows(I).EntireRow.Delete
KK = KK + 1
End If
Next
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im erscheinenden Dialogfeld den Datenbereich aus, auf dessen Basis Sie die doppelte Zeile verschieben möchten (siehe Screenshot):
4. Klicken Sie auf die Schaltfläche OK. Wählen Sie anschließend in einem weiteren Dialogfeld eine Zelle in einem neuen Arbeitsblatt aus, in das Sie die verschobenen doppelten Zeilen einfügen möchten (siehe Screenshot):
5. Klicken Sie dann auf die Schaltfläche OK. Anschließend wurden die doppelten Zeilen sofort in das von Ihnen angegebene Arbeitsblatt verschoben (siehe Screenshot):
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins