Conditional Formatting for Dupes in every other column

[JTL9161]

I have a row where I want to check for duplicates in every other column. A-C-E-G....and so on. I need to copy this formatting down 100 lines. I did the one rule clicking on the individual columns checking for dups but Format Painter will not work for dragging it down to the remaining rows. Is this doable?

Thank You,
James

 

[Flaiban]

I think that help you...

Sub JTL9161()

Dim cel As Variant
Dim rng As Range
Dim clr As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Array of Columns
Dim Col(1 To 4) As String
Col(1) = "A"
Col(2) = "C"
Col(3) = "E"
Col(4) = "G"
'Iterate through Columns
For i = 1 To 4
    
    Set rng = Range(Col(i) & "1:" & Col(i) & Range(Col(i) & "1048576").End(xlUp).Row)
    rng.Interior.ColorIndex = xlNone
    clr = 6
    For Each cel In rng
        If Application.WorksheetFunction.CountIf(rng, cel) > 1 Then
            
            If Application.WorksheetFunction.CountIf(Range(Col(i) & "1:" & Col(i) & cel.Row), cel) = 1 Then
                cel.Interior.ColorIndex = clr
                clr = clr + 1
            Else
                cel.Interior.ColorIndex = rng.Cells(WorksheetFunction.Match(cel.Value, rng, False), 1).Interior.ColorIndex
            End If
        End If
    Next
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

 

[JTL9161]

thank you. I'll try it