Excel VBA宏提取上方单元格至C列失败，全显False求助

问题场景 #

需求为在A列搜索指定文本，当找到目标文本时，将该单元格上方的内容提取到C列对应位置。编写的VBA宏运行后，C列所有单元格均显示False，即使存在匹配的目标文本（如A17为"STD LTR 3D BC"，对应C列公式未返回A16内容）。

原VBA代码 #

Sub ALobP3b_LPALLETName()
'
' ALobP3_LPALLETName Macro
'
    ActiveCell.FormulaR1C1 = _
    "=IF(R[1]C[-2]=""STD LTR 3D BC"",RC[-2],IF(R[1]C[-2]=""STD LTR SCF BC"",RC[-2],IF(R[1]C[-2]=""STD LTR NDC BC"",RC[-2],IF(R[1]C[-2]=""STD LTR BC WKG"",RC[-2],IF(R[1]C[-2]=""STD LTR BC/MACH WKG"",RC[-2]))))"
    ' Range("B2").FormulaR1C1 = "=R[-1]C[1]"         'refs A1, one row up (-1) and one column left (-1)              ]
    Range("C1").Select
    Selection.AutoFill destination:=Range("C1:C1000"), Type:=xlFillDefault
    Range("C1:C1000").Select

End Sub

生成的示例公式 #

=IF(A17="STD LTR 3D BC",A16,IF(A17="STD LTR SCF BC",A16,IF(A17="STD LTR NDC BC",A16,IF(A17="STD LTR BC WKG",A16,IF(A17="STD LTR BC/MACH WKG",A16)))))

核心问题分析 #

1. IF函数无默认返回值：当所有条件都不满足时，Excel会自动返回False，这是C列大面积显示False的直接原因。
2. 引用逻辑错位：原公式用R[1]C[-2]检查下一行的A列值，而需求是找到目标文本的当前行后提取上一行内容，导致公式的行对应关系完全错误。比如A17是目标文本，原公式会在C16中检查A17，而非在C17中检查A17并提取A16。

解决方案 #

修正后的VBA宏 #

Sub ALobP3b_LPALLETName()
    ' 从C2开始设置公式（第1行无上方单元格，无需处理）
    Range("C2").FormulaR1C1 = _
        "=IF(OR(RC[-2]=""STD LTR 3D BC"",RC[-2]=""STD LTR SCF BC"",RC[-2]=""STD LTR NDC BC"",RC[-2]=""STD LTR BC WKG"",RC[-2]=""STD LTR BC/MACH WKG""),R[-1]C[-2],"""")"
    ' 自动填充至C1000
    Range("C2").AutoFill Destination:=Range("C2:C1000"), Type:=xlFillDefault
    ' 可选：选中结果区域
    Range("C2:C1000").Select
End Sub

修正说明 #

• 调整引用逻辑：用RC[-2]检查当前行的A列值，用R[-1]C[-2]提取上一行的A列内容，完全匹配需求逻辑。
• 简化条件判断：用OR函数合并多个目标文本条件，替代嵌套IF，提升公式可读性和维护性。
• 添加默认返回值：最后用""（空文本）作为条件不满足时的返回值，避免显示False。
• 起始行调整：从C2开始填充，因为C1没有上方单元格，无需处理。

手动验证公式 #

若不想用宏，可直接在C2单元格输入以下公式，下拉填充至目标行：

=IF(OR(A2="STD LTR 3D BC",A2="STD LTR SCF BC",A2="STD LTR NDC BC",A2="STD LTR BC WKG",A2="STD LTR BC/MACH WKG"),A1,"")

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