数据对碰

popicture

1, 有三个SHEET
2，要想显示的效果是，数据录入的单号  减去数据对碰的单号   剩下需要显示的单号。
3，所有数据都是数字格式
4，用意是，数据录入是全部的数据，数据对碰是已经处理的数据，显示差异是要跟进的数据。
5，数据可能会达到1000000 行


谢谢各位提供意见！

zmj9151

.........

yooha

数据对碰.zip (240.34 KB, 下载次数: 5)

2019-7-22 16:44 上传

点击文件名下载附件

注意表格格式
Sub test()
Application.ScreenUpdating = False
Sheet3.Range("A1:A" & Sheet3.Cells(Rows.Count, 1).End(3).Row).ClearContents
Dim sz1, sz2, sz3, aa1
sz1 = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(Sheet1.Cells(Rows.Count, 1).End(3).Row, 1))
sz2 = Sheet2.Range(Sheet2.Cells(1, 1), Sheet2.Cells(Sheet2.Cells(Rows.Count, 1).End(3).Row, 1))
Dim d, dd, d1
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
For Each d1 In sz2
d(d1) = ""
Next
For aa1 = 2 To UBound(sz1)
If Not d.Exists(sz1(aa1, 1)) Then
dd(sz1(aa1, 1)) = ""
End If
Next
sz3 = dd.keys
Sheet3.[A1].Resize(dd.Count, 1) = Application.Transpose(sz3)
Application.ScreenUpdating = True
End Sub

hsgy

用透视表真的对碰一下就可以了

popicture

zmj9151 发表于 2019-7-22 16:23
.........

非常感谢zmj9151，这样大大提高了我们核对数据的速度，谢谢！

popicture

yooha 发表于 2019-7-22 16:44
注意表格格式
Sub test()
Application.ScreenUpdating = False

同样感谢yooha的指点，谢谢