엑셀 TEXTJOIN 함수 (엑셀 2016 이전 버전 사용자용)

Public Function TEXTJOIN(ByVal delimiter As String, _
                            ByVal ignore_empty As Boolean, _
                            ParamArray vaRngs() As Variant)
 
'###############################################################
'오빠두엑셀 VBA 사용자 지정함수 (https://www.oppadu.com/VBA-TEXTJOIN-함수)
'■ TEXTJOIN 명령문
'■ TEXTJOIN 함수를 지원하지 않는 엑셀 2016 이전 버전 사용자를 위한 사용자지정함수입니다.
'■ 범위안의 각 셀을 구분자로 분리하여 긴 문자열로 병합합니다.
'■ 인수 설명
'_____________delimiter : 각 셀을 구분할 구분자입니다.
'_____________ignore_empty : 빈 셀이 있을경우 무시할지 여부입니다.
'_____________rng :병합할 범위입니다.
'■ 사용된 기타 사용자지정함수
'■ 그외 참고사항
'###############################################################
 
Dim vaRng As Variant
Dim Rng As Variant
Dim strResult As String
 
For Each vaRng In vaRngs
    For Each Rng In vaRng
        If ignore_empty = True Then
            If Rng <> "" Then strResult = strResult & Rng & delimiter
        Else
            strResult = strResult & Rng & delimiter
        End If
    Next
Next
 
strResult = Left(strResult, Len(strResult) - Len(delimiter))
TEXTJOIN = strResult
 
End Function