跨表动态调用VLOOKUP并在循环中使用时出现运行时错误求助

你的代码出现运行时错误，核心原因是Excel公式无法识别VBA变量wfd，另外大量使用Select/Selection操作也容易导致意外错误。以下是修正后的代码，同时优化了操作逻辑：

Dim wfd As Worksheet
Set wfd = ThisWorkbook.Sheets("Binarysheet")
Dim wsActive As Worksheet
Set wsActive = ThisWorkbook.ActiveSheet ' 明确绑定活动工作表，避免状态切换出错
Dim lastRow As Long

For i = 20 To 61
    With wsActive
        ' 获取当前关联列的有效数据最后一行（替代多次End跳转操作）
        lastRow = .Cells(.Rows.Count, i - 1).End(xlUp).Row
        
        ' 处理第i列的VLOOKUP（匹配Binarysheet的B列）
        .Cells(2, i).FormulaR1C1 = "=VLOOKUP(RC[-2],'" & wfd.Name & "'!$A:$B,2,FALSE)"
        .Range(.Cells(2, i), .Cells(lastRow, i)).FillDown
        .Range(.Cells(2, i), .Cells(lastRow, i)).Value = .Range(.Cells(2, i), .Cells(lastRow, i)).Value
        
        ' 处理第i+1列的VLOOKUP（匹配Binarysheet的C列）
        lastRow = .Cells(.Rows.Count, i).End(xlUp).Row
        .Cells(2, i + 1).FormulaR1C1 = "=VLOOKUP(RC[-3],'" & wfd.Name & "'!$A:$C,3,0)"
        .Range(.Cells(2, i + 1), .Cells(lastRow, i + 1)).FillDown
        .Range(.Cells(2, i + 1), .Cells(lastRow, i + 1)).Value = .Range(.Cells(2, i + 1), .Cells(lastRow, i + 1)).Value
    End With
Next i

关键修改说明 #

• 公式变量转实际名称：把原公式里的wfd!替换为'" & wfd.Name & "'!，将VBA变量对应的工作表名称嵌入公式字符串，Excel才能正确识别跨表引用。单引号可兼容带空格或特殊字符的工作表名称。
• 移除冗余选择操作：直接通过工作表对象和单元格区域操作，避免因工作表切换、单元格保护等导致的选取出错，同时大幅提升代码运行效率。
• 简化最后一行获取逻辑：用Cells(Rows.Count, 列号).End(xlUp).Row直接定位有效数据的最后一行，替代多次End(xlDown)/End(xlUp)的繁琐跳转，逻辑更稳定清晰。
• 明确工作表绑定：定义wsActive变量固定活动工作表，防止后续操作中因激活状态变化引发错误。

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