텍스트 나누기

Step 1: 줄바꿈이 들어간 셀 나누기

Alt + Enter 키를 사용하여 강제 줄바꿈을 한 경우, 질문하신 것처럼 '텍스트 나누기'가 되지 않더군요. 쉬운 방법은 떠오르지 않고... 간단하게 VBA로 코딩을 해 보았습니다.

(각 셀 안에서 항목마다 줄이 바뀌어 있습니다. 표에서는 슬래시로 구분해 나타냈습니다.)

코드를 보면... 언제나 처럼 아주 간단하지요? ^^

Step 2: MakeOneRow 프로시저

Sub MakeOneRow()
    Dim rngTarget As Range
    On Error GoTo ET
    Set rngTarget = Application.InputBox("대상 셀을 하나만 선택하세요", "대상 셀 선택//By Exceller", Type:=8)
    '''변수를 선언한 다음, InputBox 메서드를 사용하여 사용자로부터 영역을 지정받습니다.
    '''InputBox 앞에 Application이 붙은 걸로 봐서... 그렇지요! 워크시트 함수를 가져다가 사용합니다.

    Set rngTarget = rngTarget.Cells(1).CurrentRegion
    '''만약에 에러가 발생하면 ET로 가서 실행하라는 에러 트래핑 구문을 추가하였습니다.
    '''사용자가 영역을 지정하지 않았을 경우나, Range 오브젝트가 아닌 다른 것을 지정했을 때
    '''등에 대비한 에러 트래핑 구문은 직접 만들어 보세요.

    With rngTarget
        .TextToColumns _
            Destination:=rngTarget, DataType:=xlDelimited, _
            textqualifier:=xlDoubleQuote, consecutivedelimiter:=False, _
            Tab:=False, semicolon:=False, comma:=False, Space:=False, _
            other:=True, otherchar:=Chr(10)
        .CurrentRegion.EntireRow.AutoFit
        '''이 부분이 오늘 강좌의 핵심입니다. 처음 보면 엄청 길어보입니다만... 자꾸 봐도 길기는
        '''길군요. ^^ 이 긴 것을 Exceller는 외워서 적었을까요? 당연히 아니겠지요? 매크로 기록기를
        '''켜 놓고 코드를 생성한 다음 약간 수정해 주었습니다.
        '''이 코드가 도대체 먼 소린지 이해가 안되는 분은 '데이터-텍스트 나누기' 메뉴를 한번
        '''사용해 보세요. 그러면 금방 아시게 될 것입니다. 중요한 것은 맨 마지막에 있는,
        '''otherchar:=Chr(10) ← 요 부분입니다.
        '''즉 우리가 Alt + Enter 키를 탁 치면, 엑셀은 이것을 Char(10)으로 인식합니다.

    End With
    MsgBox "작업이 끝났습니다", , "작업 종료//By Exceller"
    Exit Sub
ET:
    MsgBox "대상영역을 잘못 선택하셨습니다. 확인하세요!", vbInformation, "선택 오류//By Exceller"
End Sub

마무리

황금이 소나기처럼 쏟아질지라도
사람의 욕망을 다 채울 수는 없다.
욕망에는 짧은 쾌락에
많은 고통이 따른다.

'법구경'에 이런 구절이 있더군요. 그렇다고 Exceller가 불교도는 아닙니다만... "행복이란 원하는 것을 얼마나 가지고 있느냐가 아니라 불필요한 것으로부터 얼마나 자유로운 상태에 있는가에 있다"는 어느 고승의 말씀이 생각납니다.

왜 갑자기 이런 도사 비스무리한 생각을 하게 되었을까요? Exceller가 산에 가서 머리 깎을... 아니 머리깎고 산에 갈래나? ^^

다음 시간에...

정리 — 줄바꿈 셀 나누기 핵심

자주 묻는 질문 (FAQ)

마치며

Chr(10)만 구분 문자로 지정하면 줄바꿈이 들어간 셀도 텍스트 나누기로 간단히 나눌 수 있습니다.