Highlight duplicate cells in multiple ranges random on single sheet

[jenkins124]

I am trying to figure out how to highlight duplicate cells in 15 different ranges on a single sheet.
Example:
Ranges are: A1:A20, A30:A50: A60:A80, D1:20, D30:D50, etc.
The ranges are not side by side but scattered across the sheet.
I am attempting to do a bunch of loops to do this , but realize there must be a simpler way.
I have seen it done , but only when the ranges are all side by side.

Thanks for any help
Jenkins124

 

[footoo]

https://www.google.com/search?q=exc....69i57j0l5.15694j0j8&sourceid=chrome&ie=UTF-8

 

[jenkins124]

Thank for the reply.

I forgot to add I want to achieve this by using vba.

 

[My Aswer Is This]

With no pattern of what ranges to check and no logic provided as to how you choose the ranges I would think it may be hard to help you.

And you did not provide specific details as to what

highlight duplicates means.

Highlight them with cell color of Green or Yellow or what?
​

 

[jenkins124]

I am slightly familiar with vba so was looking for some guidance, but see it may be easier to actually provide the issue so some code examples could be provided.

The ranges below all have numbers in them.
If there are duplicate numbers between the ranges I would like the cell to highlight in yellow.
No single range (ex: A1:A20) has duplicate numbers within it.

The range of cells are:
A1:A20, A30:A50, A60:A70
D

1:D20, D30:D50, D60:D70
G

1:G20, G30:G50, G60:G70​

_{^{<strike>
</strike>}}J1:J20, J30:J50, J60:J70

Thanks
​

_{^{<strike></strike>}}

 

[footoo]

From the macro recorder (adjust to suit your needs) :

Sub Macro1()
    Cells.FormatConditions.Delete
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub