Excel VBA 跨工作表查找獲獎匯總數據

今天要講的例子涉及到跨工作表,統計數據。

問題如下:

Excel VBA 跨工作表查找獲獎彙總數據

解決的思路如下:

Excel VBA 跨工作表查找獲獎彙總數據

代碼運行的結果如下:

Excel VBA 跨工作表查找獲獎彙總數據

代碼如下:

Excel VBA 跨工作表查找獲獎彙總數據

代碼解析

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

2:4行 後期綁定字典;

3:5~17行 遍歷名稱非“總表”的工作;

4:8~9行 遍歷工作表格,連接名稱及評分;

5:10~14行 判斷字典是否存在key,如果不存在就新建字典,並賦值為1,如果存在,就在原字典的基礎上加1,達到計數的目的。

6:18~20行 在“總表”工作表裡面操作;

7:22~25行 連接第一行及第一列的數據,並查字典,把字典的item,賦值相應的數據

8:26行 清空目標區域的內容;

9:27行 把數組寫入目標區域;

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

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


分享到:


相關文章: