1、原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示,插入一个模块。
一、用数组公式直接筛选
C1=INDEX(B:B,SMALL(IF(COUNTIF($D$9:$D$11,$B$1:$B$24)=0,4^8,ROW($B$1:$B$24)),ROW(A1)))&""
数组公式向下复制【数组公式,公式输完后,光标放在公式编辑栏同时按下CTRL+SHIFT+回车键,使数组公式生效】
二、添加辅助列筛选
A1=IF(COUNTIF($D$9:$D$11,B1),SUMPRODUCT(COUNTIF($D$9:$D$11,B$1:B1)),0)向下复制
C1=IF(ISERROR(VLOOKUP(ROW(A1),$A$1:$B$24,2,)),"",VLOOKUP(ROW(A1),$A$1:$B$24,2,))向下复制
本回答被网友采纳