Excel高手请进，怎样按货币单位分开计总？

[colee]

HK$0.20
US$3.00
US$5.00
HK$0.20
HK$0.20
HK$0.20
US$3.00
HK$0.50 。。。。 有一列几万行数，单位有的是HK$，有的是US$

需要求这列数里，单位是US$ 的行的总和，公式应怎么写？？

排序不行，按筛选也不知如何写公式（最好不要用排序或筛选办法，而直接写计总公式），急求救大虾，谢谢


附，测试文件：http://www.yikco.com/test.xls

[gracexu]

从你的样本看，HK$ 和 US$ 不是输入的字符，而是显示的自定义格式

[zpec]

加一个辅助列不行么？

[colee]

[Quote=引用 1 楼 gracexu 的回复:]
从你的样本看，HK$ 和 US$ 不是输入的字符，而是显示的自定义格式
[/Quote]

是一列货币数字，就是定义的货币单位不同。 有办法吗？

[Quote=引用 2 楼 zpec 的回复:]
加一个辅助列不行么？
[/Quote]

怎么加呢？ 现在几十万行数据已经在那了，人手分开是不可能的

[chensijian]

楼主，你那列根本都不是数字格式的，没有办法排序或筛选的，呵呵，我EXCEL不知道怎么定义，不过导入数据库（ACCESS或者SQL）就可以用数据库查询命令分开了啦，

[gzlwch]

看能否按照公司来筛选，前提是1个公司对应单独1种货币。因为公司名估计最多也几十个而已。

[gracexu]

在VBA 里面插入一个新模块，把下面的代码贴进去

Function SumByCurrency(goal As Range, curtype As String)
Dim i As Long
Dim totalamount As Double

totalamount = 0
For i = 1 To goal.Rows.Count
    If InStr(goal.Cells(i, 1).NumberFormat, curtype) > 0 Then
        totalamount = totalamount + goal.Cells(i, 1)
    End If
Next i
    
SumByCurrency = totalamount

End Function

用法，就你的例子，在b12 输入 =sumbycurrency(B4:B11,"HK$")
在B13 输入 =sumbycurrency(B4:B11,"US$")

[gracexu]

顶一下，楼主怎么也不给个回音的。

[bgyyyyy]

gracexu很强！

[蓝帆·雨轩]

假设你不会使用VBA，那么可以使用如下方法处理：

选中金额列，复制，打开记事本，粘贴（您可以看到，虽然Excel中的只是格式，但是在记事本中成了字符），保存。
然后将保存好的文件按照字符列导入到Excel中。这样就形成了一个辅助列。该列前面的字符就是币种，可以以这个为条件来计算原来的金额列的总计（使用SumIf等即可）