Excel VBA 按總表的數據查詢分表的數據

今天講的實例如下:

問題如下:

Excel VBA 按總表的數據查詢分表的數據

解決的思路如下:

Excel VBA 按總表的數據查詢分表的數據

代碼運行的結果如下:

Excel VBA 按總表的數據查詢分表的數據

代碼如下:

Excel VBA 按總表的數據查詢分表的數據

代碼解析

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

2:4~5行 後期綁定字典;

4:6行 獲取總表的最後一個非空單元格行號;

4:7行 定義新的數組;

5:9~11行 設定標題行;

6:13~23行 用for循環把大號價籤的商品編碼分別寫入字典,並把結果傳給brr數組(字典的key及item分別傳遞);

7:25~36行 用for循環把小號價籤的商品編碼分別寫入字典,並把結果傳給brr數組(字典的key及item分別傳遞);此處採用了兩個字典,一個字典是用來和總表的結果進行匹配,一給是用來傳遞數組給數組

8:38~47行 用字典反查詢總表的商品代碼,判斷商品代碼是否存在

9:49~52行 清空目標區域原有的數據,並寫入新的數組。

10 52~54行 清空字典及數組

PS: 代碼的源文件裡面還有兩外一個VBA代碼的思路。比這個代碼要簡潔。

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

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


分享到:


相關文章: