VBA中含.Left与.Offset的VLOOKUP语句报错，请求语法排查

你的代码报错是因为VLOOKUP参数顺序颠倒，加上Left函数用法错误，具体问题和修正方案如下：

问题点 #

1. VLOOKUP参数顺序错误：VBA中Application.VLookup的正确参数顺序是(查找值, 查找范围, 返回列序号, 匹配方式)，你把「查找范围」和「查找值」的位置写反了。
2. Left函数误用：你用了.Left（这是单元格对象的属性，返回单元格左边界位置），而应该用VBA的Left函数提取字符串前5位；同时ActiveCell逻辑错误，要定位当前空单元格的左侧单元格，应该用.Offset(0, -1)。
3. 公式赋值逻辑混淆：如果用Application.VLookup直接返回结果，要赋值给.Value；如果要写入工作表公式，需用带等号的工作表函数语法。

修正后的代码（直接赋值结果，不保留公式） #

Dim rngLookup As Range
Set rngLookup = Sheets("Account Descriptions").Range("A2:B468")

LastRow = Sheets("Summary").Range("B6").End(xlDown).Row
Set cRange = Sheets("Summary").Range("F6:F" & LastRow)
For x = cRange.Cells.Count To 1 Step -1
    With cRange.Cells(x)
        If IsEmpty(.Value) Then
            ' 提取左侧单元格字符串前5位作为查找值
            Dim lookupValue As String
            lookupValue = Left(.Offset(0, -1).Value, 5)
            ' 用VLookup获取结果并赋值
            .Value = Application.VLookup(lookupValue, rngLookup, 2, False)
        End If
    End With
Next x

修正后的代码（写入工作表公式，保留公式结构） #

如果希望单元格保留VLOOKUP公式而非固定值，可改用以下写法：

Dim rngLookup As Range
Set rngLookup = Sheets("Account Descriptions").Range("A2:B468")
' 定义查找范围的绝对引用地址
Dim lookupAddr As String
lookupAddr = "'Account Descriptions'!" & rngLookup.Address(True, True)

LastRow = Sheets("Summary").Range("B6").End(xlDown).Row
Set cRange = Sheets("Summary").Range("F6:F" & LastRow)
For x = cRange.Cells.Count To 1 Step -1
    With cRange.Cells(x)
        If IsEmpty(.Value) Then
            ' 左侧单元格的相对引用地址
            Dim leftCellAddr As String
            leftCellAddr = .Offset(0, -1).Address(False, False)
            ' 写入工作表VLOOKUP公式
            .Formula = "=VLOOKUP(LEFT(" & leftCellAddr & ",5)," & lookupAddr & ",2,FALSE)"
        End If
    End With
Next x

额外提示 #

• 如果查找值可能不存在，Application.VLookup会返回错误值，可加上If Not IsError(...)判断避免单元格显示错误。
• End(xlDown)可能因中间空行导致LastRow计算错误，建议改用Sheets("Summary").Cells(Sheets("Summary").Rows.Count, "B").End(xlUp).Row获取最后一行。

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