[016] 특정 데이터에서 숫자, 영문, 한글만 추출하는 사용자 정의 함수

[윤슬]

안녕하세요?

가끔 데이터에서 숫자나 영문, 한글만을 추출하고자 할때 사용하는 사용자 정의 함수입니다.

아래는 사용자 정의 함수 코드입니다.

Function Wchr(St_Rng As Range, Optional y As Integer = 1) As Variant
Dim b As Long
Dim Tmp As Variant

For b = 1 To Len(St_Rng.Value)
    Select Case y
        Case 1
            If IsNumeric(Mid(St_Rng.Value, b, 1)) Then
                Tmp = Tmp & Mid(St_Rng.Value, b, 1)
            End If
        Case 2
            If Mid(St_Rng.Value, b, 1) Like "[a-z, A-Z]" Then
                Tmp = Tmp & Mid(St_Rng.Value, b, 1)
            End If
        Case 3
            If Mid(St_Rng.Value, b, 1) Like "[가-힣]" Then
                Tmp = Tmp & Mid(St_Rng.Value, b, 1)
            End If
    End Select
   
    If Len(Tmp) = 0 Then
        Wchr = ""
    Else
        Wchr = Tmp
    End If
Next b
End Function

자세한 결과는 첨부파일을 참고로...

그럼 또...!

===============================================================

첨부파일

090715_숫자_영문_한글_추출하기_UDF.xlsm

===============================================================