提取不重复数据

cqz1314

和孩子练认字  

A列字库  是计划认识的字  

B列认识  是已经认识的字

C列不认识   想把B列里有而A列里没有提取到C列

求老师帮忙处理 谢谢

chxw68

cqz1314 发表于 2016-11-6 07:01
感觉第1个计算快一些，我用的2003

你说得对，这里用SQL速度很慢。

lsc900707

cqz1314 发表于 2016-11-6 09:36
嗯 嗯
打反了

清除 c 列种第2行到第500行中的数据

cqz1314

lsc900707 发表于 2016-11-6 08:00
题目应该是找ab列不同才准确>>>>>>>

嗯 嗯
打反了

谢谢

C2:C500  是什么意思？

lsc900707

题目应该是找ab列不同才准确>>>>>>>

lsc900707

Sub lee()
Dim d As Object, arr, brr, i%, j%, k%
Set d = CreateObject("scripting.dictionary")
arr = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
brr = Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)
  For i = 1 To UBound(arr)
    d(arr(i, 1)) = ""
  Next
ReDim crr(1 To UBound(arr), 1 To 1)
For j = 1 To UBound(brr)
     If d.exists(brr(j, 1)) Then
        k = k + 1
        d.Remove brr(j, 1)
    End If
   Next
  Range("C2:C500").ClearContents
[C2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
End Sub

cqz1314

chxw68 发表于 2016-11-5 23:40
提供了两种方法，供楼主参考。

感觉第1个计算快一些，我用的2003

cqz1314

chxw68 发表于 2016-11-5 23:40
提供了两种方法，供楼主参考。

感谢，就是这样的。

lsc900707

是不是恰好说反了，应该是提取A列有而B列里没有的字吧？

chxw68

提供了两种方法，供楼主参考。