VBA Match data in Multiple Columns return True if any matches

[Stephen_IV]

Good afternoon,

I have some sample data below I really have approx 26 columns. I would like a VBA solution to see if any value equals the other in a range of cells that I select. For the data set, it is only 2 columns but you get the idea. I just need True if there are any matches. Any help is appreciated.

2020 2021 14 14 TRUE 13, 11 13 TRUE 11, 13 13, 17 TRUE 14 13 16, 18, 19, 22 6, 4, 14 56, 32, 111 111, 22 TRUE

 

[offthelip]

I think this mehtod could be a bit complicated for 26 columns but I couldn't think of a better way of doing this:

Sub tst()
Dim tempd As Double
Dim cola As Object
Set cola = CreateObject("scripting.dictionary")
cola.CompareMode = vbTextCompare
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(Cells(1, 1), Cells(LastRow, 2)) ' input data
outarr = Range(Cells(1, 3), Cells(LastRow, 3)) ' output data
For i = 2 To LastRow
  outarr(i, 1) = False
  If InStr(inarr(i, 1), ",") Then ' check if there is a comma
     tempa = Split(inarr(i, 1), ",")
    For j = 0 To UBound(tempa)
     tempd = tempa(j) ' change string to double
     cola(tempd) = 0
    Next j
  Else
    cola(inarr(i, 1)) = 0
  End If
  If InStr(inarr(i, 2), ",") Then ' check if the is a comma
    colb = Split(inarr(i, 2), ",")
    For j = 0 To UBound(colb)
        tempd = colb(j)
        If cola.exists(tempd) Then
         outarr(i, 1) = True
         Exit For
        End If
    Next j
  Else
    tempd = inarr(i, 2)
    If cola.exists(tempd) Then
     outarr(i, 1) = True
    End If
  End If
 cola.RemoveAll
Next i
Range(Cells(1, 3), Cells(LastRow, 3)) = outarr

End Sub

 

[Stephen_IV]

offthelip that does it! Thank you very much for your help! Much appreciated!