엑셀에서 텍스트 문자열의 숫자를 제거하기(VBA 코드)

수능 자료집(부록) 작성과 관련하여 다음과 같은 예제에서 숫자만 제거 하고 싶었다.

1) 수학영역 가17/X9 → 가/X

2) 탐구영역 과탐12/직탐4/X10 → 과탐/직탐/X

 

구글 검색한 결과 다음과 같은 vba 코드를 구할 수 있었다.

 

VBA 코드

Function RemoveNumbers(Txt As String) As String
          With CreateObject("VBScript.RegExp")
              .Global = True
              .Pattern = "[0-9]"
              RemoveNumbers = .Replace(Txt, "")
          End With
End Function

 

제거할 셀을 RemoveNumbers() 함수의 매개변수로 넣어 다른 셀에서 숫자를 삭제한 값을 얻는다.

사용수식: =RemoveNumbers(A2)

 

RemoveNumbers() 결과화면