求和 C列唯一值的在E列的数

aellu · 发表于 2018-8-31 20:55

求和，C列唯一名称（相同的名称只计算一次），小计在E列的数值，，

QQ图片20180831204816.png

测试.rar (19.26 KB, 下载次数: 8)

chxw68 · 发表于 2018-8-31 22:49

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("测试")
r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
arr = .Range("a1:k" & r)
For i = UBound(arr) To 1 Step -1
If arr(i, 2) = "小计" Then
xj = arr(i, 5)
End If
If Len(arr(i, 3)) <> 0 Then
If Not d.exists(arr(i, 3)) Then
d(arr(i, 3)) = xj
End If
End If
Next
.Cells(UBound(arr), 5) = Application.Sum(d.items)
End With
End Sub

复制代码

chxw68 · 发表于 2018-8-31 22:50

详见附件。

aellu · 发表于 2018-9-1 09:48

chxw68 发表于 2018-8-31 22:49

大师，有点不对的呢，求和金额不对的呢，应该是求C列唯一值的小计的金额，例如这三个标红的金额的。
QQ图片20180901094607.png

chxw68 · 发表于 2018-9-1 09:57

aellu 发表于 2018-9-1 09:48
大师，有点不对的呢，求和金额不对的呢，应该是求C列唯一值的小计的金额，例如这三个标红的金额的。

你好好检查一下，结果就是这样的。

aellu · 发表于 2018-9-1 17:47

chxw68 发表于 2018-9-1 09:57
你好好检查一下，结果就是这样的。

大师这个是附件上运行VB后的结果的，有点不对的呢？不晓得是哪里出了问题的呢？
QQ图片20180901174546.png

aellu · 发表于 2018-9-1 22:45

chxw68 发表于 2018-9-1 09:57
你好好检查一下，结果就是这样的。

大师，这个代码运行的结果是求所有小计的和，不是唯一值的和的呢？？？

chxw68 · 发表于 2018-9-1 22:47

aellu 发表于 2018-9-1 22:45
大师，这个代码运行的结果是求所有小计的和，不是唯一值的和的呢？？？

你不是要求计算C列唯一名称的小计数值吗？

aellu · 发表于 2018-9-1 22:48

chxw68 发表于 2018-9-1 22:47
你不是要求计算C列唯一名称的小计数值吗？

就是的啊，但是这个代码运行的结果是所有小计的和

chxw68 · 发表于 2018-9-1 22:54

你再仔细看看。

		自动登录	找回密码
密码			免费注册

[求助] 求和 C列唯一值的在E列的数