如何用Excel把不同表格的数据求和
发布网友
发布时间：2022-04-25 20:09
共1个回答
热心网友
时间：2022-06-17 01:32
Sub 汇总()
Set d=CreateObject(”Scripting.Dictionary”)
For i=1 to cells(rows.count,1).end(3).row
If IsNumeric(Range("a" & i) then
d(Range("a" & i).value)= d(Range("a" & i).value)+ Range("b" & i).value
End if
Next
y=d.keys
t=d.items
For i=0 to Ubound(y)
Sheets(2).Cells(i +2,1)=y(i)
Sheets(2).Cells(i+2,2)=t(i)
next
End sub
