영어 한글 분리하기

지식인에 올라온 질문.

영어와 한글을 분리해달라는 요청.

보통 한 셀에 영어가 한글 앞에 오기때문에

1. do 문을 이용해서 한글이 나올 때까지 한글자씩 합치고

2. 한글은 영어글자수만큼 빼서 영어와 한글을 분리하였다.

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

텍스트복사.xlsm