주소에서 지역만 다시 정리
주소에 지역명이 제각각 나오는 경우가 있습니다.
이럴 경우 지역명을 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
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| 셀분리하여 특정열 마지막 데이터에 저장 (0) | 2015.01.28 |
|---|---|
| 중복개수 표시 VBA (효율적인 메모리, CPU 부하방지) (0) | 2014.12.12 |
| 주소 지역명 자동추출 VBA (0) | 2014.12.06 |
| SRT 자막파일을 엑셀 VBA 로 편집 (0) | 2014.11.22 |
| 엑셀과 MySQL 연동처리 (2) | 2014.10.26 |
Link2Me