VBA Split Function Results in cell

Option Explicit

Public Function SPACE_OVERLAP(ByRef Cell1 As Range, ByRef Cell2 As Range) As String
Dim ARR1() As String
Dim ARR2() As String
Dim sResult As String
Dim i As Integer
Dim n As Integer
    
ARR1 = Split(Cell1.Value, ",")
ARR2 = Split(Cell2.Value, ",")
 
For i = LBound(ARR1) To UBound(ARR1)
    For n = LBound(ARR2) To UBound(ARR2)
            If ARR1(i) = ARR2(n) Then
                    sResult = sResult & "," & ARR2(n)
            End If
    Next n
Next i

If Left(sResult, 1) = "," Then sResult = Right(sResult, Len(sResult) - 1)

SPACE_OVERLAP = sResult

End Function

Regards, TMS

You're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.