【原创】VBA（实验24）如何去掉一列中的重复项，多种工作表函数方法以及VBA方法

问题1：删掉1列种重复的项

左上角为A1

比如第1列，其中有些是有重复的

 

问题2：如果删除的是多列里重复的呢？

经常是这样的情况：比如需要联合查 第1列和第2列的，都重复的，只重复1个不算重复

key1	value1
key2	value2
key3	value3
key4	value4
key5	value5
key6	value6
key7	value7
key8	value8
key9	value9
key10	value10
key11	value11
key12	value12
key10	value10
key10	value14
key10	value10
key12	value16
key12	value12

 

 

 

工作表函数

单列重复的

=COUNTIF(A:A,A1)

=IF(COUNTIF(A:A,A1)=1,"","有重复")

 

 

多列重复的

key1	value1	key1value1	1
key2	value2	key2 value2	1
key3	value3	key3value3	1
key4	value4	key4  value4	1
key5	value5	key5value5	1
key6	value6	key6   value6	1
key7	value7	key7value7	1
key8	value8	key8value8	1
key9	value9	key9value9	1
key10	value10	key10value10	3
key11	value11	key11value11	1
key12	value12	key12value12	2
key10	value10	key10value10	2
key10	value14	key10value14	1
key10	value10	key10value10	1
key12	value16	key12value16	1
key12	value12	key12value12	1

1 辅助列

辅助列= a1&b1,然后，比较辅助列是否重复

2 sumproduct

=SUMPRODUCT(1*(A1&B1=A1:A$17&B1:B$17))

 

 

 

数组公式？

 

 

 

 

EXCEL本身方法

（1） 数据--删除重复项

 

 

（2）  数据--筛选---高级筛选---去掉重复的

 

（3） 重复项报警

开始---条件格式---突出显示---重复项

条件格式还可以做很多其他显示