近百万行的数据怎么用VBA实现Vlookup匹配数据

李正

本人平时需要处理超大数据量的表格，数据量少则几十万行，多则上百万行。我需要从一个表格中用Vlookup函数匹配数据到另一个表格，由于数据量超大，所以每次都需要半天或者一天时间才能完成此匹配过程，请问各位高手可否用VBA解决？
附件中是附表（我删除了大部分数据，仅留小部分做演示，实际工作中最少会有几十万行），我需要从Sheet2中匹配D列的“期间”放到Sheet1中Q列，如黄色部分所示。请各位VBA高手指点。
非常感谢！

李正

补充一点，平时由于数据量太大，表格差不多有100-200M，打开或者保存非常慢，试问是否有好的办法解决？

李正

补充一下：平时由于数据量太大，表格大小差不多有100-200M，打开或者保存非常慢，试问是否有好的办法解决？

lzhuan665

VBA 就用dictionary 来处理也许会快些，但是因为数据量太大，打开速度不会有提升，建议用数据库进行处理

带劲儿

我感觉哈 即使用数据库一个一个去进行匹配也挺费时的 也可能是我功力还不够

yeminqiang

这么大的数据，不要用excel。太耗时间，用数据库吧。

李正

数据库？会不会很麻烦？不知道怎么用。

zzzxxxmmm

这个难度大。。。

李正

刚才有人跟我说可以把文件压缩到十几M，请问对于十几M大小的文件是否可以用VBA解决？
只需把Sheet1中Q列的结果保留为文字格式就好，不需要保留公式。因为有公式会反应很慢。

Zamyi

1. Public Sub test()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. r = Sheet2.Range("d4", Sheet2.Range("c1048576").End(3))
   
4. For i = 1 To UBound(r)
   
5.   d("" & r(i, 1)) = r(i, 2)
   
6. Next
   
7. r = Sheet1.Range("e2", Sheet1.Range("e1048576").End(3))
   
8. For i = 1 To UBound(r)
   
9.   r(i, 1) = d("" & r(i, 1))
   
10. Next
    
11. Sheet1.Range("r2").Resize(UBound(r)) = r
    
12. End Sub

复制代码