한글만 삭제하는 정규식 매크로
Sub Macro() Dim rnG As Range Dim rngD As Range Set rngD = Columns("D").SpecialCells(2) 'D열에 있는 데이터 With CreateObject("Vbscript.regexp") .Global = True .Pattern = "[가-힇]" '한글은 전부 For Each rnG In rngD If .test(rnG) Then rnG = .Replace(rnG, "") '한글 삭제 Next rnG End With End Sub | cs |
'VB(A)' 카테고리의 다른 글
새로운 시작 (0) | 2016.07.11 |
---|---|
오름차순이 적용된 셀을 찾아서 Rank (0) | 2016.05.23 |
의뢰 건 코딩 완료 (0) | 2016.03.05 |
표 분리 (0) | 2016.01.29 |
글자 뒤집기 (0) | 2016.01.26 |