Použiť vlastnú funkciu zapísanú v makre:
Function SumCurrency(ByVal Area As Range, ByVal CurrencySign As String) As Double
Dim R As Range
For Each R In Area
If InStr(R.NumberFormatLocal, CurrencySign) > 0 Then
SumCurrency = SumCurrency + R.Value
End If
Next
End Function
Následne už len použiť napr.: =SUMCURRENCY(D2:D6;"€")