如何提速VLOOKUP值与单元格循环相乘的VBA代码？

Hey there，我来帮你搞定这个VBA效率和动态引用的问题！先理清楚你的需求：你需要基于Sheet1 P列的口味类型，通过Sheet0的Table区域做VLOOKUP拿价格，再和Sheet1的F、G列数值相乘，最后替换原值。原来的循环写法因为逐个单元格操作太慢，你尝试用With+Evaluate批量处理，但卡在了VLOOKUP固定引用P2的问题上，对吧？

先说说你原来的循环慢的核心原因 #

你的初始循环代码是逐行读取P列单元格、执行VLOOKUP、写入结果，这种单个单元格循环操作在数据量稍大的时候（哪怕只有几百行）都会明显变慢，因为VBA和Excel单元格交互的开销很高，批量操作才是正道。

解决动态VLOOKUP引用的关键 #

你尝试的Evaluate思路非常对，它能批量处理单元格计算，速度比循环快N倍。要解决固定引用P2的问题，只要让VLOOKUP的查找值能逐行对应就好，这里给你两种实用的写法：

写法1：用ROW()+INDEX实现动态行匹配

这种写法通用性很强，哪怕你的数据不是从第2行开始也能适配：

Dim lastrow As Long
lastrow = wsSheet1.Cells(Rows.Count, 1).End(xlUp).Row

With wsSheet1.Range("F2:F" & lastrow)
    ' 用ROW()获取当前行号，INDEX定位到对应行的P列单元格
    .Value = Evaluate(.Address & "*VLOOKUP(INDEX('sheet1'!P:P,ROW()),'sheet0'!Table,2,FALSE)")
End With

写法2：直接指定匹配的P列范围

如果你的数据是从第2行开始到lastrow结束，直接把VLOOKUP的查找值范围写成和目标列一致的区间，Evaluate会自动按行对应计算：

Dim lastrow As Long
lastrow = wsSheet1.Cells(Rows.Count, 1).End(xlUp).Row

With wsSheet1.Range("F2:F" & lastrow)
    .Value = Evaluate(.Address & "*VLOOKUP('sheet1'!P2:P" & lastrow & ",'sheet0'!Table,2,FALSE)")
End With

一步到位处理多列（F+G列） #

既然你要处理F和G两列，不用写两个With块，直接把范围改成F2:G&lastrow就行，Evaluate会自动对每一列逐行计算：

Dim lastrow As Long
lastrow = wsSheet1.Cells(Rows.Count, 1).End(xlUp).Row

With wsSheet1.Range("F2:G" & lastrow)
    .Value = Evaluate(.Address & "*VLOOKUP('sheet1'!P2:P" & lastrow & ",'sheet0'!Table,2,FALSE)")
End With

额外提速小技巧（数据量大时必用） #

如果你的数据行数很多（比如上千行），可以在代码开头加上这些设置，进一步减少Excel的后台开销：

' 代码开头关闭不必要的功能
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

' 这里放你的批量计算代码

' 代码结束后恢复默认设置
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

这样改完之后，速度会比原来的循环快好几倍，而且完全不用绕到Sheet2再复制回来，直接在Sheet1里完成替换，逻辑也更简洁。

内容的提问来源于stack exchange，提问作者S31