안녕하세요.

워크시트 함수만으로는 통화 기호 판별을 할 수가 없네요.

부득이하게 VBA로 사용자 정의 함수를 만들어 써야 할 듯합니다.

하지만 이런 경우라도 회원님이 셀에 어떤 표시 형식을 지정했느냐에 따라

정확한 결과가 나오지 않을 수도 있습니다.

다음 사용자 지정 함수는 $#,##0 또는 €#,##0 등과 같이

통화 기호를 정해 표시 형식을 지정한 셀이라고 가정한 것입니다.

Function CurSum(rngData, strCur) As Double
    Dim rngCell As Range
    Dim sumTemp As Double
   
    On Error GoTo errProcess
   
    For Each rngCell In rngData
        If rngCell.NumberFormat Like "*" & strCur & "*" Then
            sumTemp = sumTemp + rngCell
        End If
    Next
   
    CurSum = sumTemp
    Exit Function
   
errProcess:
    CurSum = 0
End Function

모듈 시트에 위와 같이 입력한 다음 워크시트에서 사용할 때는

=CurSum(A1:A20, "€") 와 같이 입력합니다.

그러면 A1:A20에서 지정한 통화 기호가 있는 셀의 합계가 구해집니다.

자세한 설명은 생략합니다. 엑셀 매크로/VBA 강좌를 참고하십시오.

감사합니다.