VBA Code to Highlight Duplicate Values in a Column in Excel

VBA Code:

Sub HighlightDuplicates()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    
    ' Set the range of cells to check for duplicates
    Set rng = Range("A1:A100") ' Change the range as desired
    
    ' Create a dictionary object to store the unique values
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' Loop through each cell in the range
    For Each cell In rng
        ' Check if the value already exists in the dictionary
        If dict.Exists(cell.Value) Then
            ' Highlight the cell as a duplicate
            cell.Interior.Color = RGB(255, 0, 0) ' Change the color as desired
        Else
            ' Add the value to the dictionary
            dict.Add cell.Value, 0
        End If
    Next cell
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment