In diesem Artikel haben wir ein Makro erstellt, um doppelte Werte hervorzuheben.
Rohdaten bestehen aus verschiedenen Autonamen. Wir möchten doppelte Einträge hervorheben.
Drücken Sie die Schaltfläche "Duplikat markieren", um das Makro auszuführen und doppelte Einträge hervorzuheben.
Logikerklärung
Wir haben das Makro „Check_Dups“ erstellt, um doppelte Einträge hervorzuheben. Sie werden rot hervorgehoben. Im Makro prüfen wir die Anzahl eines bestimmten Eintrags. Wenn es größer als 1 ist, werden die Daten hervorgehoben.
Bitte folgen Sie unten für den Code
Option Explicit Sub Check_Dups() 'Variablen deklarieren Dim Cell As Variant Dim Source As Range 'Quellbereich initialisieren Set Source = Range("A9:A24") 'Alle vorherigen Formatierungen aus der Quelle entfernen Source.Interior.Color = RGB(221, 235, 247) 'Durchlaufen jeder Zelle im Quellbereich für jede Zelle in Quelle 'Überprüfen, ob der Wert in der Zelle bereits im Quellbereich vorhanden ist If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then 'Doppelte Werte rot hervorheben Farbe Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site