[엑셀VBA] Split, 문자열 나누기

안녕하십니까 춤추는초코칩입니다.

업무 중에 필요한 엑셀VBA를 기록하고 있습니다.

오늘은 "텍스트 나누기"기능입니다.

엑셀 VBA의 Split 함수는 문자열을 특정 구분자로 나누고 배열로 반환합니다.

함수의 구문

Split ( Expression, [Delimiter], [Limit], [Compare] )

 

함수의 인수

Expression	필수	분할하려는 텍스트 문자열 빈 문자열이며나 빈 배열을 반환
Delimiter	선택	구분자. 기본설정은 공백("")
Limit	선택	최대 문자열 수를 지정하는 정수. 기본설정은 모든 문자열
Compare	선택	비교유형을 다음 중 하나로 지정 vbBinaryCompare(기본) vbTextCompare vbDatabaseCompare

'문자열 나누기: 이름을 나누어 보자

Sub TextSplit()

 

' 배열을 선언합니다.

    Dim names() As String 

 

' Split the string "John Paul Smith" into substrings.
    'names = Split("John Paul Smith")
    names = Split(Cells(1, 1))

' The array "names" now has length 3, and contains the values
' "John", "Paul" and "Smith"

    For i = 0 To UBound(names)
        Cells(i + 1, 3) = names(i)
    Next i

' UBound는 배열의 마지막 위치를 반환하는 함수입니다.

End Sub