Entfernen von Duplikaten aus Spalte B basierend auf Werten in Spalte A in Microsoft Excel

Question

Ich löschte Duplikate leicht in Spalte A, aber jetzt haben meine Werte A1048576 überschritten, jetzt habe ich keine andere Möglichkeit, als Spalte B zu verwenden, aber jetzt kann ich Duplikate nicht entfernen Werte in Spalte B aus der Spalte A. Wie kann ich es tun? So behandeln Sie die Spalten A, B, C usw. als eine einzige Spalte.

meine Spalte A Angenommen und B hat diese Werte

A B 

a k 
b l 
c a 
d f 
e r 
f 
g 

Wie Sie sehen können, Spalte B Werte a und f hat, die auch in der Spalte A existiert, so möchte ich a und f entfernen.

Vielen Dank für Ihre Hilfe und Zusammenarbeit in dieser Hinsicht.

Answer 1

Sie können VBA verwenden, um alle Zellen zu durchlaufen, obwohl es aufgrund des Zellenvolumens in Ihren Daten eine Weile dauern kann. So etwas wie dies funktionieren würde:

Sub RemoveDuplicates() 

    Dim rng As Range 
    Dim x as Long 

    Application.Calculation = xlCalculationManual 
    Application.ScreenUpdating = False 

    Set rng = ThisWorkbook.Sheets("SheetName").Range("A2:C1048576") 

    For x = rng.Cells.Count To 1 Step -1 
     If WorksheetFunction.CountIf(rng, rng(x)) > 1 Then 
      rng(x).Delete xlShiftUp 
     End If 
    Next x 

    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True 

End Sub 

Das obige Unterprogramm würde wandelt diese:

A B 

a d 
a d 
a e 
b e 
b f 
c 
c 

In diesem:

A B 

a d 
b e 
c f