Excel技术需求：根据M2值匹配K列并获取匹配项右侧第3单元格内容

工作表公式解法 #

直接使用INDEX+MATCH组合实现需求，这是高效且非易失性的方案，同时可处理无匹配的情况：

=IFERROR(INDEX($N:$N, MATCH(M2, $K:$K, 0)), "无匹配")

说明： #

• MATCH(M2, $K:$K, 0)：在K列精确查找M2的值，返回匹配单元格的行号
• INDEX($N:$N, 行号)：N列是K列右侧第3列（K→L→M→N，共3步偏移），通过行号直接提取对应单元格的值
• IFERROR(...)：如果K列没有匹配项，返回"无匹配"避免显示错误值

如果偏好偏移写法，也可以写成：

=IFERROR(INDEX(OFFSET($K:$K, 0, 3), MATCH(M2, $K:$K, 0)), "无匹配")

你之前公式的问题： #

• =Cells(H2).offset(0,6).value是VBA语法，工作表公式不能直接使用VBA对象模型，要取值需用INDIRECT（比如=INDIRECT(H2).Offset(0,3)），但INDIRECT是易失性函数，不推荐
• 你用ADDRESS(MATCH(M2,K:K,0),14)得到的是N列匹配行的地址，直接套INDIRECT就能取值：=INDIRECT(ADDRESS(MATCH(M2,K:K,0),14))，但INDEX的效率更高

VBA宏解法 #

修正你之前宏的错误，以下是可直接运行的代码：

Sub GetMatchedValue()
    Dim matchValue As Variant
    Dim matchRow As Variant
    
    ' 获取M2单元格的值
    matchValue = Range("M2").Value
    ' 如果M2为空，直接退出
    If matchValue = "" Then
        MsgBox "M2单元格为空"
        Exit Sub
    End If
    
    ' 在K列精确查找匹配项，返回行号
    matchRow = Application.Match(matchValue, Range("K:K"), 0)
    
    ' 判断是否找到匹配
    If Not IsError(matchRow) Then
        ' 匹配单元格右侧第3列是第14列（K是第11列，11+3=14），将值写入H2（可自行修改目标单元格）
        Range("H2").Value = Cells(matchRow, 14).Value
    Else
        Range("H2").Value = "未找到匹配项"
    End If
End Sub

你之前VBA的问题： #

• Cells(2, 2)指向的是B2，不是M2，M列是第13列，应该用Cells(2,13)或Range("M2")
• Application.Match返回的是行号（数字），不是单元格地址，不能直接赋值给字符串变量cellAddress
• 未处理Match返回错误的情况（找不到匹配时会返回错误值，直接判断cellAddress <> 0会触发运行时错误）

内容的提问来源于stack exchange，提问作者Kyraoshi Sidh Tirith