문장 내의 특정위치 단어 추출하기

Step 1: 사용 방법

셀에 =CutWord(A1,5), =CutWord(B3,1), =CutWord(B10)과 같이 입력합니다. 첫 번째 인수는 문자열이 들어 있는 셀, 두 번째 인수는 추출할 단어의 순서이며, 두 번째 인수를 생략하면 문자열 전체를 돌려줍니다.

Step 2: CutWord 함수

코드를 보도록 하지요. 아주 간단합니다.

Option Base 1
'//Option Base는 배열의 하한값을 지정해 줄 때 사용합니다. 무슨 소리냐 하면,
'//Dim strName(10) As String이라고 선언을 했다면 strName 배열변수는 strName(1),
'//strName(2),…strName(10) 이렇게 10개가 만들어지는 것이 아니라 strName(0)부터
'//생성이 되므로 총 11개의 변수가 생성되는 것입니다.

'//그런데 위와 같이 Option Base 1이라는 문장을 사용하면 배열변수가 0부터 만들어지는
'//것이 아니라 1부터 만들어지게 됩니다.
'//Option Base 문은 모듈 내에서 한번만 선언할 수 있으며, 차원(배열의 크기)을 포함한
'//배열 선언 앞에 있어야 합니다. 대개 모듈시트의 도입부에 위치시킵니다.

Function CutWord(Cell, Optional X As Integer)
    '//Optional X 어쩌고… 하는 새로운 것이 하나 나왔지요?
    '//이것은 Optional Arguments라고 하는 것으로 우리말로 번역하면 선택적 요소라고
    '//번역을 하면 될려나?

    Dim strTemp As String
    Dim strWord() As String
    Dim intNum As Integer
    Dim intWhat As Integer, intFrom As Integer
    Dim i As Integer
    Dim varWord As Variant
    intWhat = 1
    On Error Resume Next
    '//등장인물을 결정하고 On Error Resume Next라는 구문을 넣어 줍니다.

    Do While Err = 0
    '//Do While Err=0라는 것은 에러가 발생하지 않으면 계속 순환문을 실행하라는 뜻입니다.
    '//그러다가 에러가 발생하면… 그렇지요! 위에서 On Error Resume Next라고 하였으니까
    '//그 다음 문장을 실행하게 되겠지요?

        intFrom = Application.WorksheetFunction.Find(" ", Cell, intWhat)
        intNum = intNum + 1
        ReDim Preserve strWord(intNum)
        strWord(intNum) = Mid(Cell, intWhat, IIf(Err, Len(Cell) + 1, intFrom) - intWhat)
        intWhat = intFrom + 1
        '//위의 코드는 strWord라는 동적 배열변수에 지정한 문자열의 각 단어들을 하나씩
        '//담아두기 위한 것입니다. 물론 이 때 단어를 구분해 내는 기준은 문자열 중에 Space가
        '//있느냐 없느냐로 판단하게 됩니다.

        '//아마 그냥 눈으로만 보아서는 어떻게 돌아가는지 파악이 안 될 것입니다.
        '//종이를 한장 펼쳐 놓고, intWhat이 1일 때, intFrom은 얼마, intNum은 1, 따라서
        '//strWord(1)에는 "AAA"라는 문자열이 저장되고… 하는 식으로 적어나가다 보면
        '//쉽게 이해하실 수 있으리라 생각됩니다.

    Loop

    If X = 0 Or IsMissing(X) Then
        strTemp = Cell
    Else
        i = X
        strTemp = strWord(i)
    End If
    '//IsBlank, IsText, IsError, Cell 함수 등과 같이, 특정 형태의 정보가 유효한 지 아닌지를
    '//판단하게 도와주는 함수를 Information Functions(정보함수)이라고 합니다.
    '//위에서 사용된 IsMissing 함수도 정보함수 중 하나입니다. 이것은 함수 이름에서도
    '//알 수 있듯이, Optional Arguments에 어떤 (유효한) 값이 들어왔나 안들어왔나를
    '//체크한 다음, 들어왔을 경우에는 A라는 작업을 수행하고 그렇지 않을 경우 다른 어떤
    '//작업을 수행토록 하기 위한 함수입니다.

    CutWord = strTemp
End Function

마무리

오늘은 여기까지…

정리 — CutWord 핵심

자주 묻는 질문 (FAQ)

마치며

공백 위치를 하나씩 찾아 배열에 담아 두면 문장에서 원하는 순서의 단어를 자유롭게 꺼낼 수 있습니다.