신속한 업무를 위한 팁
엑셀 문자열에서 숫자만 계산하기(VBA코드)
MorningPhys
2020. 11. 24. 11:36
문자열에서 문자와 숫자 구성이 다음과 같이 입력되어 있을 때, 숫자만 추출하여 합계를 낸다.
입력서식은 A1 셀값에 전북 50, 충북 20, 서울 100 이라고 입력되었을 경우
VBA 모듈 추가 후 A2 셀값에 =SumNumbers(A1) 이라고 입력하면
사용자 함수(SumNumbers())를 통해 문자열 중 숫자만 추출하여 A2 셀값에 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)
For lngNum = LBound(xNums) To UBound(xNums) Step 1
SumNumbers = SumNumbers + Val(xNums(lngNum))
Next lngNum
End Function
□ 사용자 함수 호출로 인한 결과화면
반드시 입력데이터 구성이 TEXT1 숫자1, TEXT2 숫자2, TEXT3 숫자3 이런식으로 구성되어 있어야 한다.
728x90
반응형