엑셀 영어와 한국어 텍스트 분리 수식

한 데이터 안에

영어와 한국어가

혼재되어 있는 경우

일일이 분리하기가

어려우므로 이럴 땐,

간단히 VBA를 써준다.

텍스트복사.xlsm

0.02MB

Sub Macro1()
    
    Dim rngArea As Range, rngCell As Range
    Dim i As Integer
    Dim strChar As String
    
    '기존 항목 삭제
    Range("B:B,C:C").ClearContents
    
    '영어와 한글 분리할 영역 받기
    Set rngArea = Application.InputBox("분리할 셀을 선택하세요", Type:=8)
    
    For Each rngCell In rngArea
        i = 1
        strChar = ""
        
        '한글이 나올 때까지 영단어를 한글자씩 합치기
        Do Until Mid(rngCell, i, 1) Like "[가-힇]"
            strChar = strChar & Mid(rngCell, i, 1)
            i = i + 1
        Loop
        
        rngCell.Offset(, 1) = Trim(strChar)
        rngCell.Offset(, 2) = Mid(rngCell, Len(strChar) + 1)
    Next rngCell
End Sub

원하는 데이터를

붙여 넣은 후,

영역을 지정한 다음

매크로 단추를 누르면 끝.

 

어떤가,

간단하지 않은가?