엑셀 문자열에서 숫자만 계산하기(VBA코드)

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

 

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

 

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

 

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

 

SumNumbers()

□ 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) 
     
    For lngNum = LBound(xNums) To UBound(xNums) Step 1 
        SumNumbers = SumNumbers + Val(xNums(lngNum)) 
    Next lngNum 
End Function

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

SumNumbers 사용자함수 결과

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