특정 종류의 문자만 선택적으로 추출 하기
한글, 영문, 숫자, 특수문자 등 여러 종류의 문자가 섞여 있을 경우 특정 종류의 문자만 추출하는 VBA 입니다.
원하는 셀에 "=fn문자추출($A4,1)" 입력하고, 1대신 아래 항목중 선택 하면 해당 종류의 문자만 추출 됩니다.
1 : 숫자, 2 : 영문, 3 : 한글, 4 : 기타
VBA 코드는 아래와 같습니다.
Function fn문자추출(문자열 As String, 구분 As Integer) As String
Dim i As Integer
Dim K As String
Dim NumStr As String, EngStr As String, HanStr As String, EtcStr As String
For i = 1 To Len(문자열)
K = Mid(문자열, i, 1)
Select Case K
Case "0" To "9"
NumStr = NumStr & K
Case "."
NumStr = NumStr & K
Case "A" To "Z"
EngStr = EngStr & K
Case "a" To "z"
EngStr = EngStr & K
Case "ㄱ" To "홓"
HanStr = HanStr & K
Case Else
EtcStr = EtcStr & K
End Select
Next
Select Case 구분
Case 1: fn문자추출 = NumStr
Case 2: fn문자추출 = EngStr
Case 3: fn문자추출 = HanStr
Case 4: fn문자추출 = EtcStr
Case Else: fn문자추출 = "오류"
End Select
End Function