用excel的VBA代碼統計多列的數據

壹個簡單的公式就解決了,

N2 : ? =sumif(A:G,M2,B:H)

代碼也可以給妳寫個: 隨手寫的沒檢查，有問題可以告訴我

Sub?統計()

Set?dic?=?CreateObject("scripting.dictionary")

arr?=?[a1].CurrentRegion

For?c?=?1?To?UBound(arr,?2)?Step?2

For?r?=?2?To?UBound(arr)

dic(arr(r,?c))?=?arr(r,?c?+?1)?+?dic(arr(r,?c))

Next

Next

[m2].Resize(dic.Count,?1)?=?Application.Transpose(dic.keys)

[n2].Resize(dic.Count,?1)?=?Application.Transpose(dic.items)

MsgBox?"統計完畢"

End?Sub

上一篇:南岸區中老年興趣班有哪些

下一篇:數控機床編程有絕對值和增量值編程使用時