今天要讲的例子主要是多条件的筛选。
问题如下:
解决的思路如下:
代码运行的结果如下:
代码如下:
代码解析
1:2~3行 DIM定义变量,arr是原始数据,crr是条件区数据,brr是查询数据;
2:4、31行 关闭、打开屏幕刷新
3:5行 把原始数据传给arr
4:6~10行 把查询单元格,赋值给变量ran,并把查询区赋值给brr,条件区赋值给crr;
5:12~16行 遍历条件区,用str连接的非空条件,并用n统计非空的数量;
6:18~29行 遍历arr数组,用str1组合与条件区符合的字符串。。
7:22~26行 对比str与str1字符串,如果相等,就把数据传递给brr;
8:30行 清空目标区域的值,并赋值brr
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
閱讀更多 浮雲Excel分享 的文章