用数组，字典怎么写vlookup，大神们帮帮忙，自己用vlookup，数据有点多，运算好慢

宏初学者

O列内容：用计算核对表的I列查找咨询顾问业绩表中的E列业绩咨询顾问
P列内容：用计算核对表的I列查找接待明细表中的Q列的接待顾问
Q列内容：用计算核对表的I列查找接待明细表中的J列的会员类别
R列内容：用计算核对表的I列查找接待明细表中的K列的会员状态
S列内容：用计算核对表的E列查找电商咨询业绩中的O列的顾客类别
T列内容：用计算核对表的F列查找电商咨询业绩中的O列的顾客类别
U列内容：用计算核对表的I列查找接待明细表中的Y列的开单医生
V列内容：用计算核对表的E列查找电商咨询业绩中的N列的成交科室
W列内容：用计算核对表的F列查找电商咨询业绩中的N列的成交科室
X列内容：用计算核对表的I列查找咨询顾问业绩表中的I列金额
Y列内容：用计算核对表的E列查找电商咨询业绩中的M列的成交金额
Z列内容：用计算核对表的F列查找电商咨询业绩中的M列的成交金额
AA列内容：用计算核对表的E列查找电商咨询业绩中的P列的成交项目
AB列内容：用计算核对表的F列查找电商咨询业绩中的P列的成交项目
AC列内容：用计算核对表的I列查找接待明细表中的H列的咨询项目
AD列内容：用计算核对表的I列查找接待明细表中的N列的是否成交

不知道为什么

1. Sub test1()
   
2.     Application.ScreenUpdating = False
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("咨询顾问业绩表").[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 4)) > 0 Then
   
7.             dic(arr(i, 4)) = arr(i, 5)
   
8.         End If
   
9.     Next i
   
10.     arr1 = Sheets("计算核对表").[a1].CurrentRegion
    
11.     For i = 2 To UBound(arr1)
    
12.         If dic.exists(arr1(i, 9)) Then Cells(i, 15) = dic(arr1(i, 9))
    
13.     Next i
    
14.     Set dic = Nothing
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

帮你解决O列，其它的你自己以此类推把，你这就是个打字的活！

宏初学者

不知道为什么 发表于 2018-6-24 02:05
帮你解决O列，其它的你自己以此类推把，你这就是个打字的活！

好的，谢谢，这个是O列的，如果要全部的，是一个一个写，还是可以整合在一起写