특정 종류의 문자만 선택적으로 추출 하기

한글, 영문, 숫자, 특수문자 등 여러 종류의 문자가 섞여 있을 경우 특정 종류의 문자만 추출하는 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

문자 선택적 추출.xlsm

0.02MB