엑셀에서 텍스트 문자열의 숫자를 제거하는 방법

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

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

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

 

구글 검색한 결과 다음과 같은 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)

 

 

 

출처: https://www.extendoffice.com/ko/documents/excel/3243-excel-remove-numbers-from-strings.html