数据量20多万条，vlookup匹配卡死，求根据本表一字段取另一工作簿相应字段到本表，...

nn_gyb

工作中，“部门员工表”的联系电话值需要从“公司员工总表 ”匹配过来，唯一值是身份证号，用vlookup函数倒是可以，但处理20多万条数据匹配时，要运行半个小时才得到结果，VBA有更高效的处理办法吗？非常感谢各位出手。

shiruiqiang

这么大的公司，字典处理一下吧

情绪

用PQ不就好咯？

nn_gyb

情绪 发表于 2024-3-13 10:45
用PQ不就好咯？

EXCEL版本太老，只有2013，不支持PQ

limonet

关键字：left join

shiruiqiang

2楼模块格式需统一，从总表操作，避免下面分表多。
还有一个办法就是根据公司部门拆分总表

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select b.联系电话 From [Sheet1$]a Left Join [Excel 12.0;DataBase=" & ThisWorkbook.Path & "\公司员工总表 .xlsx].[Sheet1$]b On a.身份证号=b.身份证号"
    Range("D2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

边缘码农

excel2016

我将公司员工总表扩充到40万条记录，用vlookup函数，没感觉到慢。

lizhipei78

VLOOKUP要半小时我不相信，你的是什么版本的office，你尝试用新版的或者最新版的WPS
之前我有测试过八万行数据，用VLOOKUP是秒出
https://club.excelhome.net/thread-1674256-1-1.html

cnmlgb9998

PQ，100万行也不怕！！！！！！！！！！！！！！！！