今天要講的例子主要是多條件的篩選。

問題如下：

解決的思路如下：

代碼運(yùn)行的結(jié)果如下：

代碼如下:

代碼解析

1：2~3行 DIM定義變量，arr是原始數(shù)據(jù)，crr是條件區(qū)數(shù)據(jù)，brr是查詢數(shù)據(jù)；

2：4、31行 關(guān)閉、打開屏幕刷新

3：5行 把原始數(shù)據(jù)傳給arr

4：6~10行 把查詢單元格，賦值給變量ran，并把查詢區(qū)賦值給brr，條件區(qū)賦值給crr；

5：12~16行 遍歷條件區(qū)，用str連接的非空條件，并用n統(tǒng)計(jì)非空的數(shù)量；

6：18~29行 遍歷arr數(shù)組，用str1組合與條件區(qū)符合的字符串。。

7：22~26行 對(duì)比str與str1字符串，如果相等，就把數(shù)據(jù)傳遞給brr；

8：30行 清空目標(biāo)區(qū)域的值，并賦值brr

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

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