如何用删除提取不重复的值

大大的幸福

新人第一次发帖，希望大佬们帮帮忙，万分感谢！！！

袁勇

=LOOKUP(1,0/FREQUENCY(1,(COUNTIF(D$1:D1,A$2:A21)=0)*(COUNTIF(B:B,A$2:A21)=0)),A$2:A21)

hugeinfo

=INDEX(A:A,SMALL(IF(NOT(ISNUMBER(MATCH($A$2:$A$21,B:B,))),ROW($2:$21),9^9),ROW(A1)))

yfan17

1. =SMALL(IF(COUNTIF($A$2:$B$21,$A$2:$B$21)=1,$A$2:$B$21),ROW(1:1))

复制代码

大大的幸福

yfan17 发表于 2023-3-24 09:57

大佬，如果数据过大，有没有VBA之类可以解决？

我走我流

仅 供 参 k  a  0

云南陶肖民

=FILTER(A2:A21,COUNTIF(B2:B5,A2:A21)<1)

吴中泉

1. '提取A列中没有B列值的数据到D列
   
2. Sub 提取不重复值()
   
3.     Range("d2:d21").Clear '清空上次数据
   
4.     i = 2
   
5.     For Each x In Range("a2:a21")
   
6.         Range("d" & i) = x
   
7.         For Each y In Range("b2:b21")
   
8.             If x = y Then
   
9.                 Exit For '退出里循环
   
10.             End If
    
11.         Next
    
12.         If x <> y Then i = i + 1
    
13.     Next
    
14. End Sub
    
15. 
    
16. '数据量大请用数组
    
17. 
    
18. 
    
19. '可在E2单元格输入以下公式,并向下填充至E21如表中效果
    
20. '=IF(COUNTIF($B$2:$B$5,A2),"",A2)
    

复制代码

lizhipei78

吴中泉 发表于 2023-3-24 15:51

用VBA把范围写得这么死，这个习惯不是很好啊，一般用rnage("A65536").end(3).row来获得最后一行，人家以后改数据了也能用，建议用数组来进行操作，对单元格直接操作速度大大降低

吴中泉

lizhipei78 发表于 2023-3-25 12:40
用VBA把范围写得这么死，这个习惯不是很好啊，一般用rnage("A65536").end(3).row来获得最后一行，人家以 ...

谢谢