大大们，帮我优化下，运行太慢了

宏初学者

大大们，帮我优化下，vba用vlookup运行太慢了，数组和字典怎么用

lsc900707

没人想看你的代码。不如直接上传附件，说明具体要求。

gdw831001

Sub 电商业绩核对表()
Dim i As Integer
Application.ScreenUpdating=False
For i = 1 To 22000
If Sheets("计算核对表").Range("A" & i) <> "" Then
Sheets("计算核对表").Range("O" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("咨询顾问业绩表").Range("D:I"), 2, 0), "")
Sheets("计算核对表").Range("P" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:Q"), 15, 0), "")
Sheets("计算核对表").Range("Q" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:J"), 8, 0), "")
Sheets("计算核对表").Range("R" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:K"), 9, 0), "")
Sheets("计算核对表").Range("S" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("E" & i), Sheets("电商咨询业绩").Range("F:O"), 10, 0), "")
Sheets("计算核对表").Range("T" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("F" & i), Sheets("电商咨询业绩").Range("F:O"), 10, 0), "")
Sheets("计算核对表").Range("U" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:Y"), 23, 0), "")
Sheets("计算核对表").Range("V" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("E" & i), Sheets("电商咨询业绩").Range("F:N"), 9, 0), "")
Sheets("计算核对表").Range("W" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("F" & i), Sheets("电商咨询业绩").Range("F:N"), 9, 0), "")
Sheets("计算核对表").Range("X" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("咨询顾问业绩表").Range("D:I"), 6, 0), "")
Sheets("计算核对表").Range("Y" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("E" & i), Sheets("电商咨询业绩").Range("F:M"), 8, 0), "")
Sheets("计算核对表").Range("Z" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("F" & i), Sheets("电商咨询业绩").Range("F:M"), 8, 0), "")
Sheets("计算核对表").Range("AA" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("E" & i), Sheets("电商咨询业绩").Range("F:P"), 11, 0), "")
Sheets("计算核对表").Range("AB" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("F" & i), Sheets("电商咨询业绩").Range("F:P"), 11, 0), "")
Sheets("计算核对表").Range("AC" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:H"), 6, 0), "")
Sheets("计算核对表").Range("AD" & i) = Application.IfError(Application.VLookup(Sheets("计算核对表").Range("I" & i), Sheets("接待明细表").Range("C:N"), 12, 0), "")
End If
Next i
MsgBox Format(Timer - tms, "技术完毕！用时0.0秒")
Application.ScreenUpdating=True
End Sub

半百

上附件吧。      

qingc0221

直接在表中用公式处理两万多条数据,不卡才怪

宏初学者

半百 发表于 2018-6-23 14:30
上附件吧。

帮忙看下哈，上传附件了

宏初学者

lsc900707 发表于 2018-6-23 14:25
没人想看你的代码。不如直接上传附件，说明具体要求。

大神帮忙看看哈，附件上传了

宏初学者

qingc0221 发表于 2018-6-23 14:42
直接在表中用公式处理两万多条数据,不卡才怪

哈哈，不会用数组和字典，只会最普通的vba

jiminyanyan

直接在表中用公式处理两万多条数据,不卡才怪