엑셀 문자열을 공백, 콤마, 따옴표로 분할하는 매크로(문자열 분할, 콤마, 스페이스, 따옴표)

엑셀로 작업을 하다보면 셀에 있는 문자열을 구분해서 분리 해야 할 때가 있습니다. 보통 공백이나, 콤마, 따옴표 등의 문자로 구분된 문자열을 각각의 셀로 이동시켜 작업해야 하는 경우 유용한 매크로 입니다.

 

Sub SplitColumnData()

    Dim LastPopulatedRow As Long, MyString As String
    Dim StringPart() As String, ColIndex As Long
    Dim MinArrSubscript As Integer, MaxArrSubscript As Integer
    
    LastPopulatedRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Loop through each populated cell in column A행의 처음부터 끝까지 실행
    For RowIndex = 1 To LastPopulatedRow
    
    '공백으로 문자열을 분할(코드 마지막의  "  " 사이의 구분자로 분할, 예: 콤마, 따옴표, 공백)
    StringPart() = Split(Range("A" & RowIndex).Value, " ")
    
    MinArrSubscript = LBound(StringPart)
    MaxArrSubscript = UBound(StringPart)
    
    '분할한 문자열의 값을 입력
    For ColumnNum = MinArrSubscript To MaxArrSubscript
    Cells(RowIndex, 2 + ColumnNum).Value = StringPart(ColumnNum)
    Next ColumnNum
    Next RowIndex

End Sub