今天遇到的問題如下:
解決的思路如下:
運行的結果如下:
代碼如下:
代碼解析:
1:dim 語句定義變量
2:set 語句設定字典
3:設定key2的值
4:遍歷第一列的值,放入字典。並把第一列的值,重新設置為字典。然後把上述key2的值,放入新的字典。類似建立思路里面的表二
5:把問題的表一放入數組。
6:通過已知的的條件,查詢字典。把結果寫入數組
7:把數組寫入原表格。
點擊關注,可以閱讀更多與VBA 相關的文章
私信 VBA 可以獲取文章中含VBA代碼的Excle文件
閱讀更多 浮雲Excel分享 的文章