이 페이지에서

실무 위키›VBA 코드›TEXTJOIN

TEXTJOIN

Function

엑셀 2016 이전 버전에서도 범위의 각 셀 값을 구분자로 이어 붙여 하나의 텍스트로 병합할 수 있는 TEXTJOIN 사용자 지정 함수입니다.

예제파일 다운로드

구문 = TEXTJOIN ( 구분자, 빈칸무시, 범위 )

인수구분 형식 설명

구분자 필수 String

각 셀을 나눌 구분자입니다.

예를 들어 ", " 또는 " / " 등을 입력합니다.

빈칸무시 필수 Boolean

TRUE일 경우 빈칸인 셀은 무시하고 병합합니다.

범위 필수 Variant

텍스트를 병합할 범위입니다.

1개 또는 여러 개의 범위를 입력할 수 있습니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요

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

Module1 · TEXTJOIN

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

strResult = Left(strResult, Len(strResult) - Len(delimiter))

TEXTJOIN = strResult

End Function

활용 예제

빈칸 무시 여부에 따른 차이

=TEXTJOIN(", ", TRUE, {"가", "", "다", "라"})

'// "가, 다, 라" 를 반환합니다.

=TEXTJOIN(", ", FALSE, {"가", "", "다", "라"})

'// "가, , 다, 라" 를 반환합니다.

여러 범위를 한 번에 병합하기

=TEXTJOIN("+", TRUE, {1, 2, , 4} , {5, 6, , 8})

'// "1+2+4+5+6+8"을 반환합니다.

안내사항

TEXTJOIN 함수는 엑셀 2019 이상 버전에서만 기본으로 제공됩니다.

엑셀 2016 이전 버전에서는 이 명령문을 파일 모듈에 추가하거나 추가기능을 설치해야 사용할 수 있습니다.

4.8 (5개 평가)

신승창 2020.06.13 22:02

2016버전의 액셀인데 안돼요 ㅜㅜ

오빠두엑셀 작성자 2020.06.14 01:22

추가기능 설치 방법은 아래 링크를 확인해보세요.
https://www.oppadu.com/%ec%97%91%ec%85%80-%ec%b6%94%ea%b0%80%ea%b8%b0%eb%8a%a5-%ec%84%a4%ec%b9%98%eb%b0%a9%eb%b2%95/
~~인데 안돼요 라고만 적어주시면 정확한 답변을 드릴 수가 없습니다 ^^;