Vba:문자열에서 숫자를 제거하는 방법
VBA에서 다음 함수를 만들어 Excel 셀의 문자열에서 숫자를 제거할 수 있습니다.
Function RemoveNumbers(CellText As String) As String
With CreateObject(" VBScript.RegExp ")
.Global = True
.Pattern = " [0-9] "
RemoveNumbers = .Replace(CellText, "")
End With
End Function
그런 다음 이 기능을 사용하여 Excel에서 원하는 셀의 숫자를 제거할 수 있습니다.
다음 예에서는 이 기능을 실제로 사용하는 방법을 보여줍니다.
예: VBA를 사용하여 문자열에서 숫자 제거
Excel에 다음과 같은 직원 ID 목록이 있다고 가정합니다.
직원 ID 열의 각 문자열에서 숫자를 제거한다고 가정해 보겠습니다.
이를 위해 VBA에서 다음 함수를 만들 수 있습니다.
Function RemoveNumbers(CellText As String) As String
With CreateObject(" VBScript.RegExp ")
.Global = True
.Pattern = " [0-9] "
RemoveNumbers = .Replace(CellText, "")
End With
End Function
이 함수를 만든 후에는 B2 셀에 다음 수식을 입력하여 모든 숫자가 제거된 직원 번호를 셀 A2 에 반환할 수 있습니다.
=RemoveNumbers( A2 )
그런 다음 이 수식을 클릭하여 B열의 나머지 각 셀로 드래그할 수 있습니다.
B열에는 A열의 각 문자열이 숫자가 제거되어 표시됩니다.
예를 들어:
- 4009앤디는 앤디 가 된다
- 1540 밥이 밥이 되다
- 1500Chad09가 차드가 됨
- 1600더그가 더그가 되다
등등.
추가 리소스
다음 자습서에서는 VBA를 사용하여 다른 일반적인 작업을 수행하는 방법을 설명합니다.
VBA: 문자열에서 문자 발생 횟수를 계산하는 방법
VBA:문자열에 다른 문자열이 포함되어 있는지 확인하는 방법
VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법