Doppelte Werte in Excel finden und Zeilen mit VBA auf ein anderes Blatt exportieren
Ich bin neu in VBA-Skripten ... Was ich versuche zu tun, ist:
Spalte auf doppelte Werte in MS Excel-Datei prüfenWenn Duplikate vorhanden sind, kopieren Sie Zeilen mit doppelten Werten in ein anderes Arbeitsblatt ...Zum Beispiel habe ich eine Tabelle1 mit Inhalt:
Ich möchte den Inhalt in Spalte A durchgehen und Zeilen mit doppelten Werten in Spalte A in ein neues Blatt exportieren:
Nach dem Suchen und Bearbeiten einiger VBA-Skripte habe ich diesen Code gefunden:
Sub FilterAndCopy()
Dim wstSource As Worksheet, _
wstOutput As Worksheet
Dim rngCell As Range, _
rngMyData As Range
Dim lngMyRow As Long
Set wstSource = Worksheets("Sheet1")
Set wstOutput = Worksheets("Sheet2")
Set rngMyData = wstSource.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Application.ScreenUpdating = False
For Each rngCell In rngMyData
If Evaluate("COUNTIF(" & rngMyData.Address & "," & rngCell.Address & ")") > 1 Then
lngMyRow = wstOutput.Cells(Rows.Count, "A").End(xlUp).Row + 1
wstSource.Range("A" & rngCell.Row & ":D" & rngCell.Row).Copy _
Destination:=wstOutput.Range("A" & lngMyRow & ":D" & lngMyRow)
End If
Next rngCell
Application.ScreenUpdating = True
End Sub
Ist das der richtige Code? Kann es optimiert werden, um schneller zu sein?
Ich habe 80.000 Datensätze, um damit fertig zu werden ...