text join 함수

Function MyTextJoin(rX, sCriteria, rY) As String
' rX: 조건범위, sCriteria: 조건, rY: 이름 범위

' 변수 선언
    Dim rCell As Range
    Dim iOffset As Integer
    Dim sTemp As String
    
    ' 조건 범위 열 번호 - 이름 범위 열 번호
    iOffset = rY.Column - rX.Column
    
    For Each rCell In rX
        If rCell = sCriteria Then
            If sTemp = "" Then
                sTemp = rCell.Offset(, iOffset)
            Else
                sTemp = sTemp & ", " & rCell.Offset(, iOffset)
            End If
        End If
    Next

    MyTextJoin = sTemp

End Function