=SUMIF($A$2:A2,A2,$B$2:B2)求vba过程

jerry3770

=SUMIF($A$2:A2,A2,$B$2:B2)
您好！老师！
由于工作需要用到 依条件逐行累加求和。
谁来帮帮我 谢谢了

jerry3770

Uc浏览器传不了图片和附件

fzxba

sub test
dim ar,i as long,dict as object
set dict=createobject("scripting.dictionary")
ar=range("A1").currentregion.offset(1).resize(,2)
for i=1 to ubound(ar)-1
dict(ar(i,1))=dict(ar(i,1))+val(ar(i,2))
ar(i,1)=dict(ar(i,1))
next
range("C2").resize(ubound(ar)-1)=ar
set dict=nothing
beep
end sub

jerry3770

老师 谢谢您
刚才我验证了完全ok.
我现在想改成C2-SUMIF($A$2:A2,A2,$B$2:B2),可以实现吗,麻烦您了

jerry3770

fzxba 发表于 2023-2-26 13:58
sub test
dim ar,i as long,dict as object
set dict=createobject("scripting.dictionary")

老师 谢谢您
刚才我验证了完全ok.
我现在想改成C2-SUMIF($A$2:A2,A2,$B$2:B2),可以实现吗,麻烦您了

fzxba

jerry3770 发表于 2023-2-26 16:26
老师 谢谢您
刚才我验证了完全ok.
我现在想改成C2-SUMIF($A$2:A2,A2,$B$2:B2),可以实现吗,麻烦您了

jerry3770

fzxba 发表于 2023-2-26 17:25

谢谢您！测试好了 结果对的。
感谢您教会我累加累减，赞赞赞
再次感谢