[Excel VBA] 셀에서 특정 글자가 있을 때까지의 문자를 남겨놓고 새 열에 나머지 문자를 입력하기

[Excel VBA] 셀에서 특정 글자가 있을 때까지의 문자를 남겨놓고 새 열에 나머지 문자를 입력하기

예제파일 첨부. 아래는 Basic Code.

읍,면을 한 열로 구분하고 리를 새 열에 넣기.

Sub aaa()

    Dim r As Range
    Dim i As Integer
    
    For Each r In Range([a1], [a1].End(xlDown))

        For i = 1 To Len(r)
            
            If Mid(r, i, 1) = "읍" Then
            
                r.Offset(, 1) = Mid(r, i + 2)
                Exit For
                
            End If
                        
            If Mid(r, i, 1) = "면" Then
            
                r.Offset(, 1) = Mid(r, i + 2)
                Exit For
                
            End If
        
        Next i

    Next r

End Sub

강승원