안녕하세요?
가끔 데이터에서 숫자나 영문, 한글만을 추출하고자 할때 사용하는 사용자 정의 함수입니다.
아래는 사용자 정의 함수 코드입니다.
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
===============================================================