문자열 분리하기

Step 1: 이번 시간의 질문

언젠가 강좌시간에 설명을 드린 것 같은데… 몇 회에서 였는 지 잘 기억이 나지 않습니다. 누구 찾으신 분 좀 알려주시기 바랍니다. Remind하기 위해서 다시 알아보도록 하지요. 일단 예제 데이터를 만듭니다.

Name과 Phone 부분에는 아래와 같은 수식이 사용되었습니다.

Name:  =LEFT(B31,FIND("(",B31)-1)
Phone: =RIGHT(B31,LEN(B31)-FIND("(",B31)+1)

Step 2: FIND 함수 이해하기

Find 함수는 텍스트 중에서 지정한 문자열의 위치를 리턴해 주는 함수입니다. 예를 들어 어느 셀에 "Digital dream Company"라는 데이터가 있을 경우,

=FIND("d",B51)   → 9
=FIND("D",B51)   → 1

(B51 셀에는 "Digital dream Company"가 들어 있습니다.)

이와 같이 사용자가 검색하고자 하는 문자열의 위치를 알려주는 것입니다. 이 때 대소문자를 구분해서 검색한다는 사실에 주의하시기 바랍니다.

그렇다면 이제 위의 Name과 Phone 부분에 들어있는 수식을 이해하시겠지요? (부호를 기준으로 이름과 전화번호가 구분되어 있으니까 Find 함수로 위치를 먼저 찾은 다음 Left나 Right와 같은 문자열 함수를 사용하여 발췌를 하면 됩니다. 그래도 수식이 잘 이해가 안되는 분은 수식의 범위를 지정하신 다음 <F9>키를 눌러 즉석 수식 계산 기능을 사용해 보세요.

Step 3: VBA로 자동화하기 (SeparateString)

그런데 가만히 보니까 이번 강좌가 EXCEL 강좌가 아니라 VBA 강좌이지요? 해서 위에서 설명드린 것을 VBA로 자동화시켜 보도록 하겠습니다. 버튼을 눌러 보세요.

코드를 보도록 합니다. 몇 줄 안되는 아주 짧은 코드입니다.

Sub SeparateString()
    Dim rngCell As Range, rngTarget As Range
    Dim strName As String, strPhone As String
    Set rngTarget = Range([Start], [Start].End(xlDown))
    '''등장 인물과 배역을 설정해 줍니다. 소스 데이터의 첫번째 셀에 Start라는 이름을 미리
    '''정의해 두었습니다. 이름을 정의해 두고 사용하면 여러 모로 편리하므로 여러분들도
    '''특별히 바쁜 일이 없는 한 이름을 정의하는 습관을 기르시기 바랍니다. ^^

    [Contents].ClearContents
    MsgBox "내용을 모두 지웠습니다. 이제 이름과 전화번호를 분리합니다!", , "작업 개시//By Exceller"
    '''Contents도 마찬가지입니다. 이름과 전화번호가 들어갈 부분에 이름을 정의해 두었습니다.
    '''Contents라는 영역에 있는 내용들을 모두 지웁니다.

    For Each rngCell In rngTarget
        If InStr(rngCell, "(") > 0 Then
            strName = Left(rngCell, InStr(rngCell, "(") - 1)
            strPhone = Right(rngCell, Len(rngCell) - InStr(rngCell, "(") + 1)
            rngCell.Offset(0, 2) = strName
            rngCell.Offset(0, 3) = strPhone
        End If
        '''이제 순환문을 돌면서 이름과 전화번호를 구분합니다. 위에서 워크시트 상에서
        '''구분할 때 Find 함수를 사용하였었지요? 코드에서도 이 방법을 그대로 사용합니다.
        '''그런 다음에 셀에 나누어 담으면 되는 것이지요. 워크시트 상에서 할 때와 하나도
        '''다를 것이 없습니다.

    Next rngCell
    MsgBox "작업을 완료하였습니다. 잘 되지요?", , "작업 종료//By Exceller"
End Sub

마무리

오늘은 여기까지…

정리 — 문자열 분리 핵심

자주 묻는 질문 (FAQ)

마치며

워크시트 수식의 원리를 그대로 VBA로 옮기면 문자열 분리 작업을 한 번에 자동화할 수 있습니다.