in each row mark duplicates

macropod · #1 06-18-2016, 08:34 PM

KunleExcel: Your code colours not only the duplicate but also the original. Also, it processes only the first row, not all rows. Finally, when posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

kalak · #2 09-29-2016, 09:01 PM

Code:

Sub dcmdc()
Dim d As Object, r, s
Set d = CreateObject("scripting.dictionary")
d.comparemode = 0
For Each r In ActiveSheet.UsedRange.Rows
    For Each s In r.Cells
        If Len(s) > 0 Then _
            If d(s.Value) = 1 Then s.Font.Color = vbRed  Else d(s.Value) = 1
    Next s
    d.RemoveAll
Next r
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sequencing duplicates	balajigade	Excel Programming	3	10-04-2015 03:31 PM
VBA: Delete duplicates in each row	bandaanders	Excel Programming	2	09-02-2015 08:15 AM
Removing duplicates	saurabhlotankar	Excel Programming	14	05-26-2015 10:13 AM
Mail duplicates	mixy	Outlook	0	02-10-2011 12:54 AM
sum of duplicates	zxmax	Excel	1	09-29-2006 08:29 PM