|
|
本帖最后由 lrh788 于 2018-3-27 12:37 编辑
以下代码是根据汇总中a：d列数据在订单中查找并将订单对应的E--I列值返回到汇总对应的E--I列。请将下列公式用VBA代码来实现=LOOKUP(1,0/(a2&b2&c2&d2=订单!$a$2:$a$20000000&订单!$b$2:$b$20000000&订单!$c$2:$c$20000000&订单!$d$2:$d$20000000),订单!$e$2:$e$20000000)
我的附件只是举例说明，但我的正式数据每张表超过100万行，请老师修改哈！Sub aa()
Set d = CreateObject("Scripting.Dictionary")
ar = Sheets("订单").Cells(1, 1).CurrentRegion
For i = 2 To UBound(ar)
ar(i, 1) = ar(i, 1) & ar(i, 2) & ar(i, 3) & ar(i, 4)
For j = 5 To UBound(ar, 2)
d(ar(i, 1) & ar(1, j)) = d(ar(i, 1) & ar(1, j)) & ar(i, j)
Next j
Next i
br = Cells(1, 1).CurrentRegion
ReDim br1(1 To UBound(br), 1 To 1)
For i = 2 To UBound(br)
br1(i, 1) = br(i, 1) & br(i, 2) & br(i, 3) & br(i, 4)
For j = 5 To UBound(br, 2)
br(i, j) = d(br1(i, 1) & br(1, j))
Cells(i, j) = br(i, j)
Next j
Next i
End Sub
此代码已基本实现我的意图，但还需改进:1.原代码要求汇总与订单两表表头字段必须一致，能否不管表头允许两表头字段不一致;;2.能否实现根据满足条件在订单表要取的列值填写到汇总表任意指定列;3.如在汇总表第四、五列有订单表中没有的列，运行代码后不要清除，自动把要取的值放没有列值的后一列或放到当中任意指定列。最好能同时实现上面三点要求！
我的原表是这样的，查找表（10余万人）中A\B\C列分别为姓名、出生年月、身份证，另外表为人口数据库（100余万人），A\B\C\D列分别为姓名、出生年月、身份证、地址，我的目的是：1、通过查找表中姓名、出生年月、身份证，在人口数据库表中查找与之姓名、出生年月、身份证同时相同时提取其对应的家庭地址；2、通过查找表中姓名、出生年月，在人口数据库表中查找与之姓名、出生年月同时相同时提取其对应的身份证。二者可不同时实现，可通过修改代码单独实现。
此代吗数据量在几万时还行，但超过10万就慢了，等到最后还时常报错！能否优化代码？减少循环语句？请版主大师完善下，急用！！！ |
|
楼主: yuanzhuping
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2018-3-22 21:37
