Vba: 여러 구분 기호를 기준으로 문자열을 분할하는 방법

다음 기본 구문을 사용하여 VBA의 여러 구분 기호를 기반으로 문자열을 분할할 수 있습니다.

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

이 특정 예에서는 각 문자열의 하이픈이나 공백을 기준으로 A2:A7 범위의 각 문자열을 나눈 다음 각 문자열의 결과 요소를 B, C, D 열의 인접한 셀에 할당합니다.

참고 : 이 매크로는 먼저 각 하이픈을 공백으로 바꾼 다음 공백 위치에 따라 각 문자열을 분할합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA의 여러 구분 기호를 기준으로 문자열 분할

Excel에 다음과 같은 이름 목록이 있다고 가정합니다.

하이픈이나 공백을 기준으로 각 이름을 분할한 다음 각 문자열의 결과 요소를 새 셀에 할당한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이 매크로는 공백과 하이픈을 기준으로 A열의 각 문자열을 분할하고 B, C, D열에 각 문자열의 개별 텍스트 요소를 표시합니다.

참고 #1: 이 예에서는 하이픈과 공백을 기준으로 문자열을 분할하지만, 바꾸기 및 분할 기능에서 원하는 구분 기호를 지정하여 문자열을 분할할 수 있습니다.

참고 #2 : 여기에서 VBA 분할 기능에 대한 전체 문서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA를 사용하여 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 문자열에서 문자 발생 횟수를 계산하는 방법
VBA:문자열에 다른 문자열이 포함되어 있는지 확인하는 방법
VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법