VBA代替SUMIFS

ljc6

我想得到的结果是，D列每行对应的都要有值，而代码得出的结果只有字典里对应的keys有多少，只出来多少，重复的就不出现了不知道这样表达，是否清楚，能否帮忙解答一下，谢谢

lsc900707

别人有解答你视而不见，一昧的开新帖？！

xiangbaoan

Sub 求和()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.UsedRange.Resize(, 11)
For r = 5 To UBound(ar)
    ar(r, 10) = ar(r, 4)
    If Len(ar(r, 4)) Then
        d(ar(r, 4)) = d(ar(r, 4)) + ar(r, 7)
    End If
Next
For r = 5 To UBound(ar)
    If d.exists(ar(r, 10)) Then ar(r, 11) = d(ar(r, 4)) Else ar(r, 11) = ""
Next
Sheet1.UsedRange.Resize(, 11) = ar
Set d = Nothing
End Sub

lsc900707

1. Sub gj23w98()
   
2.     Arr = [a4].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(Arr)
   
5.         s = Arr(i, 4)
   
6.         If d.exists(s) Then
   
7.             d(s) = d(s) + Arr(i, 7)
   
8.         Else
   
9.             d(s) = Arr(i, 7)
   
10.         End If
    
11.     Next
    
12.     r = Cells(Rows.Count, 13).End(3).Row
    
13.     brr = Range("m5:n" & r)
    
14.     For i = 1 To UBound(brr)
    
15.         s = brr(i, 1)
    
16.         brr(i, 2) = d(s)
    
17.     Next
    
18.     Range("m5:n" & r) = brr
    
19.     Set d = Nothing
    
20. End Sub

复制代码

lsc900707

语言表达出来的很你的附件真实需求刚好相反，都不知道你究竟要什么样的结果。代码也就猜着写的。

ljc6

lsc900707 发表于 2018-8-12 21:48
语言表达出来的很你的附件真实需求刚好相反，都不知道你究竟要什么样的结果。代码也就猜着写的。

还是和我的代码一样的，我想要的结果是，M 和 N 列那样的
而代码得出的是 K 和 L 那样的

ljc6

lsc900707 发表于 2018-8-12 21:44

我想要的结果是 M 和 N 列那样的
而代码得到的却是 K 和 L

ljc6

lsc900707 发表于 2018-8-12 21:27
别人有解答你视而不见，一昧的开新帖？！

刚才系统卡住了

ljc6

xiangbaoan 发表于 2018-8-12 21:42
Sub 求和()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")

可以了，就是要这样的结果，非常感谢！

lsc900707

ljc6 发表于 2018-8-12 22:01
还是和我的代码一样的，我想要的结果是，M 和 N 列那样的
而代码得出的是 K 和 L 那样的

附件我改成了实际的显示区域，自己测试啊。