用VBA字典陣列多行多列彙總

時間 2021-06-14 11:17:52

1樓:慶年工坊

sub s()

arr = [a1].currentregionset d = createobject("scripting.dictionary")

k = 1

for i = 2 to ubound(arr)t = arr(i, 1) & arr(i, 2)if not d.exists(t) thenk = k + 1

d(t) = k

if k <> i then

arr(k, 1) = arr(i, 1)arr(k, 2) = arr(i, 2)arr(k, 3) = arr(i, 3)end if

else

arr(d(t), 3) = arr(d(t), 3) + arr(i, 3)

end if

next

[e1].resize(k, 3) = arrend sub

2樓:

你確定要使用excel vba字典技術來做嗎?根據你**需要達到的彙總要求,我覺得還是使用資料透視表比較方便,vba字典就要麻煩的多了。 具體插入資料透視表的方法是,選中a、b、c三列資料,建立資料透視表,將資料1欄位拖入行標籤,將資料2欄位拖入列標籤,將資料3欄位拖入數值區域,就可以輕鬆的做出分類彙總,然後再選項中去掉行彙總和列彙總。