今天要講的例子涉及到跨工作表,統計數據。
問題如下:
解決的思路如下:
代碼運行的結果如下:
代碼如下:
代碼解析
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文件
閱讀更多 浮雲Excel分享 的文章