엑셀 범위 문자열 합치기 :: CombineText 명령문 예제

Function CombineText(Rngs, Optional delimiter = vbNewLine) As String
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ ConbineText 함수
'▶ 여러 범위의 값을 하나의 문자열로 합칩니다.
'▶ 인수 설명
'_____________Rngs         : 문자열로 변환할 범위입니다.
'_____________Delimiter    : 각 셀의 문자열을 합칠 때 구분할 구분기호입니다. 기본값은 줄바꿈입니다.
'▶ 사용 예제
'Dim s As String
's = CombineText(Sheet1.Range("A1:A10"))
'###############################################################
 
Dim vaRng As Range: Dim Rng As Range
Dim sResult As String
 
If TypeName(Rngs) = "Range" Then
    For Each vaRng In Rngs
        For Each Rng In vaRng
            If Rng <> "" Then
                sResult = sResult & Rng & delimiter
            Else
                sResult = sResult & delimiter
            End If
        Next
    Next
    sResult = Left(sResult, Len(sResult) - Len(delimiter))
Else
    sResult = Rngs
End If
 
CombineText = sResult
 
End Function