Office中国论坛/Access中国论坛

标题: 如何通过VBA筛选出表中重复的整行？ [打印本页]

作者: LXCuup 时间: 2021-1-9 16:47
标题: 如何通过VBA筛选出表中重复的整行？
本帖最后由 LXCuup 于 2021-1-9 17:00 编辑

如下所示的示例数据，表中有两整行内容完全重复，请问如何通过VBA筛选出来？，比如高亮显示、加粗等。知道在excel中可以通过数据-删除重复值来删除掉重复的整行，但这里是想先筛选出来，待确认后再决定是否删除。。。

学号	姓名	学课	成绩
09010101	农高逸	ACCESS	85
09010102	白月明	大学英语	82
09010103	李迪	概率统计	83
09010104	高强	高等数学	79
09010104	高强	高等数学	79
09010104	高强	有机化学	82
09010105	王民	计算机基础	84
09010106	寻成周	ACCESS	81
09010107	嘉家	大学英语	82
09010108	汝暮雨	概率统计	84
09010108	汝暮雨	概率统计	84
09010108	汝暮雨	物理	81
09010109	武华藏	高等数学	81
09010110	孔清宁	计算机基础	54
09020111	岳颖然	ACCESS	55
09020112	可叶红	大学英语	81
09020113	阮如松	概率统计	55
09020114	红蕾	ACCESS	56
09020115	居阳成	大学英语	82
09020116	仲书竹	概率统计	85
09020117	北子琪	高等数学	83
09020118	镇奇正	计算机基础	84
09020119	谷红荣	物理	81
09020120	斐斯雅	有机化学	82

作者: roych 时间: 2021-1-14 21:35
首先，你得定义啥叫“重复”，一列还是几列相同？定义好之后，用字典也好，ADO数据集也好，把计数大于1的取出来即可。如果需要匹配的话，可以加一个辅助列进行关联。

作者: 方漠 时间: 2021-3-9 16:28
用 "&" 将这4列连成一列 IDKEY (即Roych讲的辅助列 .), 再对IDKEY列用 Countif公式, 筛选结果>1的就行.

如果要VBA效果, 可按上述操作录个宏 Macro.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)