四时宝库

程序员的知识宝库

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文件

发表评论:

控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
    友情链接