[已解决]数据处理问题

djsd1016

如果A工作表中的数据在B工作表中出现，则在A工作表中将与B工作中重复的数据删除。如附件……

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-8 17:49

删除重复值.rar (17.16 KB, 下载次数: 10)

2012-10-8 17:49 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

删除重复值.rar (17.16 KB, 下载次数: 10)

2012-10-8 17:49 上传

点击文件名下载附件

hwc2ycy

1. Sub 删除重复()
   
2.     Dim arr, i&, dic, arr2, j&
   
3.     Application.ScreenUpdating = False
   
4.     arr = Worksheets("B").Range("a1:a" & Worksheets("B").[a1].End(xlDown).Row).Value
   
5.     Set dic = CreateObject("scripting.dictionary")
   
6.     For i = 1 To UBound(arr)
   
7.         dic(arr(i, 1)) = ""
   
8.     Next
   
9.     arr = Range("a1:a" & [a1].End(xlDown).Row).Value
   
10.     ReDim arr2(1 To UBound(arr), 1 To 1)
    
11.     For i = 1 To UBound(arr)
    
12.         If Not dic.exists(arr(i, 1)) Then
    
13.             j = j + 1
    
14.             arr2(j, 1) = arr(i, 1)
    
15.         End If
    
16.     Next
    
17.     Range("b1").Resize(UBound(arr), 1) = arr2
    
18. End Sub

复制代码

hwc2ycy

2楼是删除了行，3楼是直接输出未重复的到B列。

hwc2ycy

删除重复值.rar (17.7 KB, 下载次数: 8)

2012-10-8 18:00 上传

点击文件名下载附件
保留A列，直接输出未重复值B列。

djsd1016

hwc2ycy 发表于 2012-10-8 18:00
保留A列，直接输出未重复值B列。

我还是想把有重复的数据直接从表A中删除。