求公式解化

colinzlq · 发表于 2012-8-31 20:29

本帖最后由 colinzlq 于 2012-8-31 21:24 编辑

公式解化.zip (6.37 KB, 下载次数: 7)
急求SUM(IF($B$5:$B5=$B5,IF($C$5:$C5=$C5,D$5:$D5)))｝公式解化问题。
如附件，因每天都有数据录入，长年累月，时间长了，内容太多，运行计算速度太慢，求更好的方法？或帮忙用VBA写代码，如何用VBA，烦请各位高手帮忙，本人感激不尽，谢谢！

问题补充，必须要满足2个以上条件求和，具体见附件。

AVEL · 发表于 2012-8-31 20:53

E5
=SUMIF($B$5:B5,B5,$D$5)
下拉就好了

colinzlq · 发表于 2012-8-31 20:55

AVEL 发表于 2012-8-31 20:53
E5
=SUMIF($B$5:B5,B5,$D$5)
下拉就好了

我是想解化这个公式，想找更简单的代替。
最好用VBA代替。

AVEL · 发表于 2012-8-31 21:00

这个公式还不够简单么？

colinzlq · 发表于 2012-8-31 21:27

AVEL 发表于 2012-8-31 21:00
这个公式还不够简单么？

谢谢，这个公式是简单，但不能实现多条件求和，只能用于单条件求和，不过还是谢谢你的解答。
请查看问题补充附件

AVEL · 发表于 2012-8-31 21:42

高版本EXCEL 可以用这个 =SUMIFS($D$5:D5,$B$5:B5,B5,$C$5:C5,C5)

colinzlq · 发表于 2012-8-31 21:47

AVEL 发表于 2012-8-31 21:42
高版本EXCEL 可以用这个 =SUMIFS($D$5:D5,$B$5:B5,B5,$C$5:C5,C5)

谢谢您的解答，谢谢！

AVEL · 发表于 2012-8-31 21:55

Option Explicit
Sub l()
Dim d As Object
Dim arr As Variant
Dim i As Integer
Dim str As String
arr = Sheet1.[a5:e20]
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
If Len(arr(i, 1)) Then
str = arr(i, 2) & arr(i, 3)
d(str) = d(str) + arr(i, 4)
arr(i, 5) = d(str)
End If
Next
Sheet1.[a5].Resize(UBound(arr), 5).Value = arr
Set d = Nothing
End Sub

复制代码

AVEL · 发表于 2012-8-31 21:56

EH(AVEL)-公式解化 12-08-31 21-56.rar (11.57 KB, 下载次数: 9)

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

[讨论] 求公式解化

评分