Microsoft Office Forums - View Single Post - [Solved] Identify matches between sheet columns

snb · 02-02-2025, 01:43 PM

I'd use:

Code:

Sub M_snb()
   sn = Sheet1.Range("H2:H23")
   sp = [transpose(ref_sheet!B2:B17)]
   
   For j = 1 To UBound(sn)
     c00 = c00 & vbLf & Join(Filter(sp, sn(j, 1)), vbLf)
   Next
   
   y = UBound(Filter(Split(c00, vbLf), ".")) + 1
   MsgBox Join(Filter(Split(c00, vbLf), "."), vbLf), , y
End Sub