在Excel中按货币过滤

我在Microsoft Excel中遇到这种情况：

使用“格式化单元格”格式化单元格，并为每个单元格手动设置货币。所以，它们不是简单的字符串。我想按货币汇总。那可能吗？怎么样？

谢谢。

VBA

因为您使用“格式”选项来格式化这些单元格，格式化不包含在单元格的值中，因此我们需要在VBA中定义一个函数。把这个（源）放在一个新模块中：

Public Function sumFormats(rng As Range) As String
Application.Volatile
Dim cell As Range, dblDollar#, dblPound#
dblDollar = 0: dblPound = 0
For Each cell In rng
If Len(cell.Value) > 0 Then
If Left(cell.Text, 1) = "$" Then
dblDollar = dblDollar + cell.Value
Else
dblPound = dblPound + cell.Value
End If
End If
Next cell
sumFormats = "Sum of currency: $" & dblDollar & "; Sum of Pounds: " & ChrW(163) & dblPound
End Function

然后将新函数=sumFormats(A1:A20)用于您想要的任何单元格，它将为您提供1行的总和。如果您需要在不同的行上使用小计，我们将需要修改该函数的输出。

非VBA

如果你不想搞乱VBA，你需要在你的号码旁边有一个帮助栏。在该列中使用该函数=cell("format",A1)，这将返回,2£和C2$。然后运行=sumif小计的函数。

=sumif(helpcolumncell,"C2",currencycell)总结美元，并C2用,2磅代替。如果您不喜欢，可以随时隐藏帮助列。在这种情况下，我们假设您的数据在B列中，帮助者是C列。

A             B    C

             Data  Format
              $1    =cell("format",B2) = C2
              £2    =cell("format",B3) = ,2  
              £3    =cell("format",B4) = ,2
              $4    =cell("format",B5) = C2 
sum dollar =sumif($C$2:$C$4,"C2",$B$2:$B$4) = 5

sum pound  =sumif($C$2:$C$4,",2",$B$2:$B$4) = 5

然后，您需要格式化这些sumif单元格以获取货币符号，或添加=concatenate("$"&sumif(...))函数