VBA中If语句忽略AND条件，触发#VALUE!时直接执行操作的原因

嘿，我来帮你理清为什么你的AND条件没生效，以及如何修正代码：

核心问题分析 #

1. 错误值判断逻辑错误
   你直接用Cells(i + 2, 10) = "#VALUE!"来检测错误，但Excel里的#VALUE!是一个特殊的错误常量，不是普通的文本字符串。这种比较方式不会得到正确的布尔结果，甚至会导致整个AND条件永远为False，自然不会触发对应的代码块。

2. 后续代码覆盖了前置逻辑
   就算第一个IF的条件能正常工作，后面那个独立的If Cells(i + 2, 10) = "#VALUE!"语句会无条件检查错误值并执行赋值，直接覆盖了第一个IF的处理结果。这就造成了“只要是错误值就执行第二个操作”的现象，看起来像是忽略了第一个AND条件。

修正后的代码 #

我们需要用IsError()函数正确识别错误值，同时调整逻辑顺序，避免后续代码覆盖前置处理：

' Trims the full name
Cells(i + 2, 10).FormulaR1C1 = _
    "=TRIM(RIGHT(SUBSTITUTE(REPLACE(RC[10],FIND(""/"",RC[10]),LEN(RC[10]),""""),"" "",REPT("" "",255)),255))"

' 先处理错误值+长下划线的特殊情况
If IsError(Cells(i + 2, 10)) And Cells(i + 2, 20) = "________________________________________________________________________________" Then
    Cells(i + 2, 10) = ""
' 再处理其他错误值情况
ElseIf IsError(Cells(i + 2, 10)) Then
    Cells(i + 2, 10) = Cells(i + 2, 20)
End If

额外优化建议 #

• 把长下划线定义为常量，提升代码可维护性：

  Const LONG_UNDERLINE As String = "________________________________________________________________________________"
  ' 之后判断时直接用 LONG_UNDERLINE 即可
  

• 考虑用VBA原生逻辑替代公式，从根源避免错误值：
  你的公式是要截取最后一个空格后的内容，用VBA的Split函数可以更直观地实现，还不会产生公式错误：

  Dim originalContent As String
  originalContent = Cells(i + 2, 20).Value ' 这里对应公式里的RC[10]，请根据实际列索引确认
  
  If originalContent <> "" Then
      Dim wordParts As Variant
      wordParts = Split(originalContent, " ")
      Cells(i + 2, 10).Value = wordParts(UBound(wordParts))
  Else
      Cells(i + 2, 10).Value = ""
  End If
  

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