Find matching values in different columns

[paizlea]

I have 3 columns of data (15-digit numbers). I would like to know if anything appears in more than 1 column. I have no idea how to even begin this.

I imagine this may be easier if this was a multi-step process, where I first compare col 1 to col 2, then col 1 to col 3, etc. Sadly, I still can't imagine how to begin.

Thanks in advance for your assistance.

 

[number kruncher]

Welcome to the Board

You could have another 3 columns to the side eg, E,F anf G, which would check each number, with either COUNT of FREQUENCY

in E1 = FREQUENCY($A:$C,A1)

Copy down and right as req'd

 

[MickG]

Try this:-
Results :- Columns addresses for Duplicates/Triplicates in Column "D", Values in "F".

[COLOR="Navy"]Sub[/COLOR] MG03May38
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Intersect(Range("A1").CurrentRegion, Columns("A:C"))
ReDim Ray(1 To Rng.Count, 1 To 2)
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Dn <> "" [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]If[/COLOR] Not .Exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
             .Add Dn.Value, Array(Dn, 0, "")
        [COLOR="Navy"]Else[/COLOR]
            Q = .Item(Dn.Value)
            [COLOR="Navy"]If[/COLOR] Q(0).Column <> Dn.Column [COLOR="Navy"]Then[/COLOR]
                [COLOR="Navy"]If[/COLOR] Q(1) = 0 [COLOR="Navy"]Then[/COLOR]
                    c = c + 1
                    Q(2) = Q(2) & Q(0).Column & "/ " & Dn.Column
                    Q(1) = c
                [COLOR="Navy"]Else[/COLOR]
                    Q(2) = Q(2) & "/ " & Dn.Column
                [COLOR="Navy"]End[/COLOR] If
                 Ray(Q(1), 1) = "Columns " & Q(2): Ray(Q(1), 2) = Dn.Value
                .Item(Dn.Value) = Q
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR]
Range("D1").Resize(c, 2) = Ray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick