[已解决]各列数据进行比较，删除重复的数据

lijian8003

请看附件。
如何在C列数据中，删除曾在A列  B列出现过的数据，并将结果写入D列

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-4 12:04

1. Sub x()
   
2. Dim ar, x, k, br(1 To 30000, 1 To 1)
   
3.   Range("d:d").ClearContents
   
4.   ar = Range("c1:c" & [c65500].End(3).Row)
   
5.    For x = 1 To UBound(ar)
   
6.     If Application.CountIf(Range("a:b"), ar(x, 1)) = 0 Then
   
7.       k = k + 1
   
8.       br(k, 1) = ar(x, 1)
   
9.     End If
   
10.    Next
    
11.    [d1].Resize(k) = br
    
12. End Sub

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. Dim ar, x, k, br(1 To 30000, 1 To 1)
   
3.   Range("d:d").ClearContents
   
4.   ar = Range("c1:c" & [c65500].End(3).Row)
   
5.    For x = 1 To UBound(ar)
   
6.     If Application.CountIf(Range("a:b"), ar(x, 1)) = 0 Then
   
7.       k = k + 1
   
8.       br(k, 1) = ar(x, 1)
   
9.     End If
   
10.    Next
    
11.    [d1].Resize(k) = br
    
12. End Sub

复制代码

lijian8003

26759761@qq.com 发表于 2015-3-4 12:04

代码运行顺畅。谢谢！