Highlight column matches

Hey,

Cheers for the reply, but I don't think that is what I need. I don't want to highlight individual cells that contain the same value in other columns. I want to highlight a column, when the entire column is exactly identical to another column. Matching columns need to be highlighted in the same colour.

Thanks,
Joe

Ok

I now understand your requirement.

Bear with me.

Hi

The attached file has a macro that will paint column b and any duplicate column green if there are duplicates.

Is that the sort of thing you need?

Please advise so that I can extend the macro for you tomorrow

Hi,

Thanks for your help here. That's exactly the sort of thing I need. It now needs to be extended to highlight any other matching columns (e.g. D&F) in a different colour.

Thanks again,
Joe

Hi

I have modified the Macro

You can now have six different sets of matching columns and they will be colour coded in six different colors.

Enjoy.

just for your amusement

Sub samecolumns()

Dim a(), b As Object, c, d, e As Long

Set b = CreateObject("scripting.dictionary")
With Cells(1).CurrentRegion
ReDim a(1 To .Columns.Count)
For Each d In .Columns
    c = Join(Application.Transpose(d), Chr(2))
    If Not b.exists(c) Then
        b(c) = b.Count + 1
        a(b(c)) = .Columns(d.Column).Address(0, 0)
    Else
        a(b(c)) = a(b(c)) & ", " & .Columns(d.Column).Address(0, 0)
    End If
Next d
End With

For Each d In a
    If InStr(d, ", ") > 0 Then
        e = e + 1
        Range(d).Interior.ColorIndex = e + 2
    End If
Next d

End Sub