특정위치 단어 추출하기

Step 1: 기존 방법의 한계

아마 별의별 사람들이 다 있을 것입니다. ^^

• Substitute, Find, Search, Mid, Left, Right 함수 등을 이용하여 해결하려는 분
• VBA에 자신이 있다면 순환문과 InStr 함수를 사용하여 해결을 시도하는 분
• '데이터-텍스트 나누기' 메뉴를 사용하는 분

어떤 방법을 사용하든 힘은 들겠지만 해결은 할 수 있습니다. 하지만 그 어느 방법도 그다지 융통성있는 방법은 되지 못하리란 생각이 듭니다. 그래서 이 문제를 해결할 수 있는 사용자 정의 함수를 한번 만들어 보았습니다(사실은 Walkenbach 아저씨의 코드를 베껴다가 약간 수정을 한 것입니다. ^^).

Step 2: 실행 결과

수식은 =ExtractWord(B35,F35,G35)와 같이 입력합니다.

Step 3: ExtractWord 함수

코드는 이렇습니다.

Function ExtractWord(XXX, nth, separator) As String
    Dim strText As String, strTemp As String
    Dim i As Integer, intCount As Integer, intLen As Integer
    strText = XXX
    intLen = Len(strText)
    '''우선 이 함수는 세 개의 인수를 넘겨받습니다. 첫번째 XXX는 추출하고자 하는 대상
    '''문자열입니다. Nth는 몇 번째 단어를 추출할 것인지에 대한 정보를 담고 있고,
    '''마지막에 있는 separator는 각 단어가 어떤 구분자에 의해 나뉘어져 있는지를
    '''담고 있습니다.

    If Right(strText, Len(separator)) <> separator Then strText = strText & separator
    If separator = Chr(32) Then strText = Application.Trim(strText)
    '''구분자가 공백
    '''(Space)으로 되어있다면 문자열 좌우에 혹시 있을 지도 모르는 불필요한 공백을
    '''제가합니다.

    For i = 1 To intLen
        If Mid(strText, i, Len(separator)) = separator Then
            intCount = intCount + 1
            If intCount = nth Then
                ExtractWord = strTemp
                Exit Function
            Else
                strTemp = ""
            End If
        Else
            strTemp = strTemp & Mid(strText, i, 1)
        End If
        '''단어 수만큼 순환문을 돌면서 문자를 추출하는 작업을 합니다.
        '''strTemp 변수에 한 글자씩 저장한 채 순환문을 돌다가 구분자의 위치가 지정한
        '''nth와 같으면 결과를 돌려주고 그렇지 않으면 계속 순환합니다.

        '''위와 같은 순환문의 구조를 파악하는 가장 좋은 방법은 종이를 한장 펼쳐놓고
        '''실제 숫자를 대입해가면서 순환문을 몇 바퀴 돌려보는 것입니다.
    Next i
    ExtractWord = ""
End Function

마무리

오늘은 여기까지 하지요.

다음 시간에...

정리 — ExtractWord 핵심

자주 묻는 질문 (FAQ)

마치며

구분자를 세는 간단한 순환문만으로 어떤 문자열에서든 원하는 위치의 단어를 뽑아내는 함수를 만들 수 있습니다.