Excel VBA 按條件跨工作表篩選數據

今天再說一個跨工作表提出數據的案例

問題如下:

Excel VBA 按條件跨工作表篩選數據

解決的思路如下:

Excel VBA 按條件跨工作表篩選數據

Excel VBA 按條件跨工作表篩選數據

利用字典,就可以查字典來獲取向對應的數據。

代碼運行的結果如下:

Excel VBA 按條件跨工作表篩選數據

代碼如下:

有效性設置代碼:

Excel VBA 按條件跨工作表篩選數據

數據查詢代碼:

Excel VBA 按條件跨工作表篩選數據

代碼解析

一、有效性設置代碼:

1:dim定義數據變量

2:後期綁定字典

3:把數據寫入數組

4:用字典達到去重的效果

5:有效性的代碼,具體可以之前的專門寫數據有效性的文章。

二、數據查詢代碼:

1:dim 定義相關的變量

2:後期綁定字典

3:把A表的相關數據放入數組

4:把去向與時間作為key 放入字典的key,並把列數i,放入item

5:讀取B表的最後一個非空單元格,並把B表數據放入數組

6:根據B表的去向及日期,查字典的item值,並返回列數 j (此處加了一個判斷)

7:讀取相應的數據

8:在B列相應的區域,寫入數組,並設置相關的格式。

點擊關注,可以閱讀更多與VBA 相關的文章

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


分享到:


相關文章: