[땡큐엑셀vba & 엑셀매크로] 한글을 제외하고 모든 문자를 삭제하는 매크로가 알고 싶습니다.

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279115200
'엑셀에서
'20:42 렐로 카바요(임의로 작성했습니다)
'1:46:24 젭 감바르델라요(임의로 작성했습니다)
'이렇게 작성되어 있을때
'앞의 20:42
'
'1:46:24
'
'이런 부분들만 일괄 삭제하고 싶은데
'
'방법이 있을까요???

'방법이 없다면
'
'한글을 제외하고 모든 문자를 삭제하는 매크로가 알고싶습니다
'
'혹시 띄어쓰기를 유지한체 한글을 제외한 삭제가 가능한지도 궁금합니다

 

 

'시간(숫자와콜론) 지우지
'
'source by 땡큐엑셀vba & 엑셀매크로
'

Sub 시간기우기()

    '마지막행
    마지막행 = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    
    
    '마지막행까지 루프
    For i = 1 To 마지막행
    
        '시간을 제외하고 넣을 변수
        변경후 = ""
        
        
        셀값 = Cells(i, "A")
        길이 = Len(셀값)
        
        '셀에 내용이 있는경우
        If 길이 > 0 Then
            For j = 1 To 길이
            
                '한글자씩 가져옴
                글자 = Mid(셀값, j, 1)
                
                '글자와 숫자 또는 콜론일 경우는 Skip
                If (글자 >= "0" And 글자 <= "9") Or (글자 = ":") Then
                Else
                    '그 외의 글자는 추가 추가
                    변경후 = 변경후 & 글자
                End If
            
            Next j
        End If
    
        'B열에 시간을 제외한 문구 출력
        Cells(i, "A").Offset(0, 1) = 변경후
    Next i
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

 

한글을 제외한 모든 숫자와 콜론 지우기-땡큐엑셀vba.xlsm

0.05MB