값을 포함하는 셀이있는 경우 값의 모든 숫자를 더하는 방법을 고안 할 수 있습니다. 예를 들어, 셀에 값 554가 포함 된 경우 5 + 5 + 4의 합계 인 14를 결정할 수 있습니다.

이 작업에 접근 할 수있는 몇 가지 방법이 있습니다. (항상 Excel에서 그렇게 보이지 않습니까?) 첫 번째는 여러 함수에 의존하는 수식을 사용하는 것입니다.

=SUMPRODUCT(--MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1))

이 일반 수식은 간단하고 우아한 방식으로 모든 정수 값 (A1 셀)의 숫자를 합산합니다. 그러나 이것이 가능한 유일한 공식은 아닙니다. 다음은 동일한 수식의 배열 수식 (Ctrl + Shift + Enter를 눌러 종료) 버전입니다.

=SUM(1*MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))

A1의 값이 양의 정수이면 이러한 수식 중 하나가 제대로 작동합니다. 숫자에 숫자가 아닌 문자 (예 : 음수 부호 또는 소수점)가 있으면 수식은 #VALUE! 오류.

이러한 유형의 계산에 가능한 유일한 공식은 아닙니다.

Microsoft 기술 자료에서 다른 수식 예제를 찾을 수 있습니다.

http://support.microsoft.com/?kbid=214053

사용자 정의 함수를 사용하여 원하는 합계를 반환 할 수도 있습니다. 다음 매크로는 참조 된 셀의 각 숫자를 단계별로 수행하고 합계를 계산합니다. 이 값은 사용자에게 반환됩니다.

Function AddDigits(Number As Long) As Integer     Dim i As Integer     Dim Sum As Integer     Dim sNumber As String

sNumber = CStr(Number)

For i = 1 To Len(sNumber)

Sum = Sum + Mid(sNumber, i, 1)

Next     AddDigits = Sum End Function

이 함수를 사용하려면 셀에 = AddDigits (A1)와 같은 수식을 사용하면됩니다. 더 간결한 사용자 정의 함수 (동일한 방식으로 호출 됨)는 다음과 같습니다.

Function AddDigits(ByVal N As Long) As Integer     Do While N >= 1         AddDigits = AddDigits + N Mod 10         N = Int(N / 10)

Loop End Function

이전 매크로와 달리이 버전은 처리를 위해 셀 내용을 문자열로 변환하지 않습니다. 대신 값의 각 자릿수를 단계별로 수행하여 마지막 자릿수를 제거하고 합계에 추가합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (12002)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은`link : / excel-Summing_Digits_in_a_Value [Summing Digits in a Value]`에서 찾을 수 있습니다.