VB(A)

[정규식] 한글만 삭제하기

당근쨈 2016. 3. 11. 13:01




한글만 삭제하는 정규식 매크로


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


예제.xlsm


'VB(A)' 카테고리의 다른 글

새로운 시작  (0) 2016.07.11
오름차순이 적용된 셀을 찾아서 Rank  (0) 2016.05.23
의뢰 건 코딩 완료  (0) 2016.03.05
표 분리  (0) 2016.01.29
글자 뒤집기  (0) 2016.01.26