반응형
안녕하십니까 춤추는초코칩입니다.
업무 중에 필요한 엑셀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
반응형
'엑셀' 카테고리의 다른 글
[엑셀VBA] 셀 선택, 범위 선택(Cells, Range, Offset) (2) | 2020.04.03 |
---|---|
[엑셀VBA] 배열(Array) 크기 구하기 (0) | 2020.03.12 |
29. [엑셀] 공휴일 제외한 날짜 계산하기 (0) | 2020.02.09 |
[엑셀VBA] 알림(Alert) 삭제하기, 설정하기 (0) | 2020.02.04 |
[엑셀VBA] 시트(Sheet) 추가, 삭제, 복사, 변경하기 (0) | 2020.01.17 |