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.

ArrowSampleData

Klicken Sie auf die Schaltfläche „Duplizieren markieren“, um das Makro auszuführen und doppelte Einträge zu markieren.

ArrowOutput

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.

ArrowOutput

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]