SUMIF(A$1:A2,D2,C$1:C2)公式--求同等功能的VBA代码

jerry3770

求老师帮我的以下公式转换为VBA代码。弄了好久不会弄了！！！感谢  祝您五一五四节日快乐！！谢谢
SUMIF(A$1:A2,D2,C$1:C2)公式--求同等功能的VBA代码，注意：求和条件是D列，求和区域又在A列

baofa2

sub test0
dim ar,i as long
dim dict as object
set dict=createobject("Scripting.Dictionary")
ar=range("D2",cells(rows.count,"A").end(xlup))
for i=1 to ubound(ar)
dict(ar(i,1))=dict(ar(i,1))+val(ar(i,3))
ar(i,1)=dict(ar(i,4))
next
range("F2").resize(ubound(ar))=ar
set dict=nothing
beep
end sub

liulang0808

https://club.excelhome.net/thread-1385473-1-1.html
字典的案例，楼主可以参考下

jerry3770

liulang0808 发表于 2024-5-4 20:35
https://club.excelhome.net/thread-1385473-1-1.html
字典的案例，楼主可以参考下

Sub afaf()

  Dim r%, i%
  Dim arr
  Dim d As Object
  ReDim Brr(1 To 100)
  Set d = CreateObject("scripting.dictionary")

    r = Range("a65536").End(xlUp).Row
    arr = Range("a2:f" & r)
    For i = 1 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
arr(i, 6) = d(arr(i, 1))
    Next
    Range("f2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 6)
      
Set d = Nothing
End Sub

jerry3770

liulang0808 发表于 2024-5-4 20:35
https://club.excelhome.net/thread-1385473-1-1.html
字典的案例，楼主可以参考下

Sub afaf()

  Dim r%, i%
  Dim arr
  Dim d As Object
  ReDim Brr(1 To 100)
  Set d = CreateObject("scripting.dictionary")

    r = Range("a65536").End(xlUp).Row
    arr = Range("a2:f" & r)
    For i = 1 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
arr(i, 6) = d(arr(i, 1))
    Next
    Range("f2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 6)
      
Set d = Nothing
End Sub 结果不是我想要的  求老师帮改一下  谢谢

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.4
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 6)
   
4.     For i = 2 To UBound(arr)
   
5.         Sum = 0
   
6.         For j = 2 To i
   
7.            If arr(j, 1) = arr(i, 4) Then Sum = Sum + arr(j, 3)
   
8.         Next
   
9.         arr(i, 6) = Sum
   
10.     Next
    
11.     [f1].Resize(r, 1) = Application.Index(arr, 0, 6)
    
12. End Sub
    

复制代码

蓝桥玄霜

F列公式代码：

jerry3770

ykcbf1100 发表于 2024-5-4 20:40
附件供参考。。。

谢谢老师 ！！ 是我想要的结果，弱弱的问下：可还有字典解法

quqiyuan