Excel VBA 跨表查詢、匯總、排序

今天講的實例如下:

問題如下:

Excel VBA 跨表查詢、彙總、排序

解決的思路如下:

Excel VBA 跨表查詢、彙總、排序

代碼運行的結果如下:

Excel VBA 跨表查詢、彙總、排序

代碼如下:

Excel VBA 跨表查詢、彙總、排序

代碼解析

1:2~3行 dim定義變量;

2:4行 把數據放入數組

3:5行 後期綁定字典;

4:6~19行 判斷年份及供應商是否存在,如果存在則創建一個新的字典,客戶作為新字典的key,金額的和作為字典的item;

5:22行 讀取B1、B2單元格的內容;

6:23~29行 當字典的數據小於6個的適合,直接讀取數據,並用sort直接對區域進行排序。

7:31~47行 當字典的數據大於6個的適合,清空輔助列F、G的數據,寫入字典的內容在相關的區域,用sort進行排序,讀取最大的五個數據,對字典的item及你選哪個求和。計算others的數據。

私信 視頻 可以獲取54集VBA入門視頻

私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件


分享到:


相關文章: