使用VBA跨工作表批量VLOOKUP数据问题求助（附代码）

原代码的核心问题 #

• 循环范围错误：lw是Range对象，For循环的终止值需要行号，应该用lw.Row而非直接用lw。
• 工作表与需求不匹配：你描述的是Sheet1→Sheet2，但代码里用了"NO PK"和Sheet5，需要对应调整工作表名称。
• 错误处理缺失：WorksheetFunction.VLookup找不到匹配值会直接报错中断程序，建议改用Application.VLookup。

修正后的For Next循环代码（匹配你的需求） #

假设Sheet1的C列是查找值，Sheet2的A:X列是匹配区域（A列是匹配键，对应返回目标列），要把结果写入Sheet2的D列，代码如下：

Sub BatchVLookup()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取Sheet1中C列的最后一行行号
    lastRow = ThisWorkbook.Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头）
    For i = 2 To lastRow
        ' 查找值：Sheet1的C列单元格
        ' 匹配区域：Sheet2的A列到目标列范围（A列为匹配键）
        ' 返回对应列的序号，精确匹配
        ThisWorkbook.Sheets("Sheet2").Cells(i, "D").Value = _
            Application.VLookup(ThisWorkbook.Sheets("Sheet1").Cells(i, "C").Value, _
            ThisWorkbook.Sheets("Sheet2").Range("A:P"), 16, False)
    Next i
End Sub

如果你的实际工作表和列范围不同，直接修改代码中的工作表名称、列标识、返回列序号即可。

更高效的替代方案：批量填充公式 #

循环逐单元格赋值效率较低，尤其是数据量大时，建议用批量填充公式的方式，完成后可转为值：

Sub BatchVLookupWithFormula()
    Dim lastRow As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1中C列的最后一行行号
    lastRow = ws1.Range("C" & Rows.Count).End(xlUp).Row
    
    ' 批量写入VLOOKUP公式到Sheet2的D列
    ws2.Range("D2:D" & lastRow).Formula = _
        "=VLOOKUP(Sheet1!C2,Sheet2!A:P,16,FALSE)"
    
    ' 可选：将公式转为值，避免后续修改数据影响结果
    ws2.Range("D2:D" & lastRow).Value = ws2.Range("D2:D" & lastRow).Value
End Sub

额外注意事项 #

• 确保匹配区域的首列（比如Sheet2的A列）包含Sheet1 C列的查找值，否则会返回#N/A。
• 如果需要处理#N/A，可以用IFERROR包裹公式，比如=IFERROR(VLOOKUP(...),"无匹配")，对应VBA代码里的公式部分修改即可。

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