How to Check DUPLICATE Rows

[NEW_2VBA]

Is there a macro or other Excel resource I can use to check for duplicate values entered in a row?

Each row contains about 15 cells so I need to know if there are any instances of all 15 cells being identical.

Some information will be duplicated however we're trying to identify the line entries that are exactly alike in all 15 cells within a spreadsheet containing sometimes over 5K+ rows of data. Thanks! Here's a condensed example:

Invoice	Date	Job	Name	Description	Amount
1456A	4/11/18	Analyst	John Doe	Professional Services	$800
1456A	4/11/18	Analyst	John Doe	Professional Services	$800

<tbody>
</tbody>

 

[Fluff]

What do you want to do with the duplicate entries?

 

[NEW_2VBA]

Highlight them or identify them in some way so that we can change them to make them unique.

 

[Fluff]

Ok, how about

Sub FindDuplicateRows()

   Dim Cl As Range
   Dim ValU As String
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A2", Range("A" & Rows.count).End(xlUp))
         ValU = Join(Application.Transpose(Application.Transpose(Cl.Resize(, 15).Value)), "|")
         If Not .exists(ValU) Then
            .Add ValU, Cl
         Else
            Cl.Resize(, 15).Interior.Color = 45678
            .Item(ValU).Resize(, 15).Interior.Color = 45678
         End If
      Next Cl
   End With
End Sub

 

[NEW_2VBA]

It worked like a charm!! THANK YOU!! Is it possible to highlight orange?

 

[Fluff]

Change the color to 49407

 

[NEW_2VBA]

Thanks again! I really appreciate it.

 

[Fluff]

Glad to help & thanks for the feedback

 

[markmzz]

Is there a macro or other Excel resource I can use to check for duplicate values entered in a row?

Each row contains about 15 cells so I need to know if there are any instances of all 15 cells being identical.

Some information will be duplicated however we're trying to identify the line entries that are exactly alike in all 15 cells within a spreadsheet containing sometimes over 5K+ rows of data. Thanks! Here's a condensed example:

Hi!

Try the formula below too in Coditional Formatting:

=SUM(--(MMULT(--($A2:$F2=$A$2:$F$10),TRANSPOSE(COLUMN($A1:$F1)/COLUMN($A1:$F1)))=COLUMNS($A1:$F1)))>1

Markmzz