Replace 이용하여 주소에서 지역만 다시 정리

주소에서 지역만 다시 정리

주소에 지역명이 제각각 나오는 경우가 있습니다.

이럴 경우 지역명을 2자리로 지정하는 VBA Code 입니다.

Sub 주소지역정리()
    Dim rngDB As Range
   
    With Sheets("addr_data")
        Set rngDB = .Range(.Cells(2, "E"), .Cells(Rows.Count, "E").End(3))  '// 주소가 들어있는 열 지정
        rngDB.Replace "경기도", "경기", xlPart
        rngDB.Replace "강원도", "강원", xlPart
        rngDB.Replace "경상북도", "경북", xlPart
        rngDB.Replace "경상남도", "경남", xlPart
        rngDB.Replace "충청북도", "충북", xlPart
        rngDB.Replace "충청남도", "충남", xlPart
        rngDB.Replace "전라북도", "전북", xlPart
        rngDB.Replace "전라남도", "전남", xlPart
        rngDB.Replace "제주도", "제주", xlPart
        rngDB.Replace "인천광역시", "인천", xlPart
        rngDB.Replace "대전광역시", "대전", xlPart
        rngDB.Replace "부산광역시", "부산", xlPart
        rngDB.Replace "대구광역시", "대구", xlPart
        rngDB.Replace "인천광역시", "인천", xlPart
        rngDB.Replace "울산광역시", "울산", xlPart
        rngDB.Replace "서울특별시", "서울", xlPart
        rngDB.Replace "세종특별자치시", "세종", xlPart
    End With
    MsgBox "주소지역 정리완료"
End Sub