实现方法

要利用VBA提取相符条件2个表格的数据，需要用到AdvancedFilter高级过滤方法，主要代码如下：

运行效果如下图所示：

参数介绍

AdvancedFilter方法，主要有action，CriteriaRange，CopyToRange，Unique等四个参数，熟悉数据高级筛选的朋友应该会比较容易理解这些参数含义。

Action即过滤的方式，主要有两个值可用，分别是xlFilterInPlace、xlFilterCopy，前者表示过滤后数据仍放在原来的地方，后者指将筛选结果复制到后面CopyToRange参数指定的地方。

而CriteriaRange参数是指定过滤所使用的条件区域。过滤条件主要由标题和范围决定，一个条件放置在一列中，多个条件并列放置在多列中，如下图所示：

CopyToRange参数，只在Action参数为xlFilterCopy时有效，表示过滤结果放置的位置。可以是一个范围，也可以是一个单元格。如果你不确定范围的大小，最好设置为单元格，那么过滤结果将放置在以这个单元格为左上顶点的区域中。

Unique参数，用来指定过滤结果是否过滤重复记录。设置为True时，过滤掉重复的记录，只保留一条记录，设置为False时，保留所有过滤后的数据，默认值为False。