对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列

rzts

对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列.rar (418.16 KB, 下载次数: 107)

2014-1-23 09:47 上传

点击文件名下载附件
对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列

如上，对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列（即a列剩下的显示在c列，b列剩下的显示在d列）

wangjguo44

公式要用到易失型函数countif，对于近25000行数据，运算会很慢很慢（曼德斯基），建议到VBA求助解决

rzts

如下，对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列（即a列剩下的显示在c列，b列剩下的显示在d列）
用excel函数，听说很慢，所以有人建议我来这边看看。 对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列.rar (418.16 KB, 下载次数: 44)

2014-1-23 10:14 上传

点击文件名下载附件

Zamyi

1. Sub test()
   
2. t = Timer
   
3. Dim d1 As New Dictionary, d2 As New Dictionary
   
4. r1 = Range("a1", [a65536].End(3)).Value
   
5. r2 = Range("b1", [b65536].End(3)).Value
   
6. For Each c In r1
   
7.   d1(c) = ""
   
8. Next
   
9. For Each c In r2
   
10.   If d1.Exists(c) Then d2(c) = ""
    
11. Next
    
12. For Each c In r1
    
13.   If Not d2.Exists(c) Then i = i + 1: r1(i, 1) = c
    
14. Next
    
15. For Each c In r2
    
16.   If Not d2.Exists(c) Then j = j + 1: r2(j, 1) = c
    
17. Next
    
18. Cells(1, 3).Resize(i) = r1
    
19. Cells(1, 4).Resize(j) = r2
    
20. MsgBox Timer - t
    
21. End Sub
    

复制代码

xianxing110a

对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列.zip (563.34 KB, 下载次数: 41)

2014-1-23 10:54 上传

点击文件名下载附件

两次高级筛选

yjh_27

rzts 发表于 2014-1-23 10:12
如下，对比a列和b列，找出相同的数据并删除，并将剩下的显示在c列和d列（即a列剩下的显示在c列，b列剩下的显 ...

数组排序取唯一