请教高手Excel表中，如何用VBA实现多条件求和并输出到新的工作表中

问题描述

精选答案

可以用vba的字典法完成：Sub test()Set d= CreateObject(

"scripting.dictionary

")r=Cells(Rows.count,1).end(3).rowarr=Range(

"A1:B

" & r)Range(

"A1:B

" & r).ClearContentFor i=1 to Ubound(arr)d(arr(i,1))=d(arr(i,1))+arr(i,2)Next y=d.keyst=d.itemsFor i =0 to ubound(y)Cells(i +1,1)=y(i)Cells(i +1,2)=t(i)Next End Sub