엑셀 문자열에서 숫자만 계산하기

엑셀 문자열(문자 + 숫자)에서 숫자만 계산하기

 

문자열에서 문자와 숫자 구성이 다음과 같이 입력되어 있을 때, 숫자만 추출하여 합계를 낸다.

 

입력서식은 A1 셀값에 전북 50, 충북 20, 서울 100 이라고 입력되었을 경우

 

VBA 모듈 추가 후 A2 셀값에 =SumNumbers(A1) 이라고 입력하면

 

사용자 함수를 통해 문자열 중 숫자만 추출하여 170이라는 결과값을 얻는다.

 

VBA 코드

 

Function SumNumbers(rngS As Range, Optional strDelim As String = " ") As Double
    'Update 20141210
    Dim xNums As Variant, lngNum As Long
    xNums = Split(rngS, strDelim)
    'MsgBox (xNumbs)
    For lngNum = LBound(xNums) To UBound(xNums) Step 1
        SumNumbers = SumNumbers + Val(xNums(lngNum))
    Next lngNum
End Function

사용자 함수 호출로 인한 결과화면

 

 

반드시 입력데이터 구성이 TEXT1 숫자1, TEXT2 숫자2, TEXT3 숫자3 이런식으로 구성되어 있어야 한다.

 

출처: 구글링 해서 찾았는데, 출처 Log를 기록하지 못했습니다.