Prüfen Sie nach Duplikaten in Spalte
auf Duplikate In diesem Artikel haben wir ein Makro erstellt, um doppelte Werte hervorzuheben.
Rohdaten bestehen aus verschiedenen Fahrzeugnamen. Wir möchten doppelte Einträge hervorheben.
Klicken Sie auf die Schaltfläche „Duplizieren markieren“, um das Makro auszuführen und doppelte Einträge zu markieren.
Logische Erklärung
Wir haben das Makro „Check_Dups“ erstellt, um doppelte Einträge hervorzuheben. Sie werden rot hervorgehoben. Im Makro prüfen wir, ob ein bestimmter Eintrag gezählt wurde. Wenn es größer als 1 ist, werden die Daten hervorgehoben.
Bitte folgen Sie unten für den Code
Option Explicit Sub Check_Dups() 'Declaring variables Dim Cell As Variant Dim Source As Range 'Initializing source range Set Source = Range("A9:A24") 'Removing any previous formatting from the source Source.Interior.Color = RGB(221, 235, 247) 'Looping through each cell in the source range For Each Cell In Source 'Checking whether value in cell already exist in the source range If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then 'Highlighting duplicate values in red color 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 und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]