VBA中If语句内Cells(cont,3).Value=esp2&CANTIDAD无法执行求助

你的代码里最后一条Cells(cont, 3).Value = esp2 & CANTIDAD永远无法执行，核心原因是条件判断的顺序逻辑错误：

• 当CANTIDAD大于99时，它必然满足第一个条件CANTIDAD > 9，程序会直接执行第一个分支的代码，根本不会走到第三个ElseIf判断。
• 第二个ElseIf CANTIDAD <=9已经覆盖了所有不满足第一个条件的情况，第三个条件完全没有触发的机会。

修正后的代码 #

调整条件判断的顺序，把范围更严格的条件放在前面：

CANTIDAD = Sheets("Hoja1").Cells(cont, 2)

If CANTIDAD > 99 Then
    Cells(cont, 3).Value = esp2 & CANTIDAD
ElseIf CANTIDAD > 9 Then
    Cells(cont, 3).Value = esp & CANTIDAD
Else
    Cells(cont, 3).Value = esp1 & CANTIDAD
End If

说明：

• 先判断>99的情况，确保这类数值会进入对应的分支
• 再判断>9的情况（此时剩下的数值是10到99之间）
• 最后用Else处理所有<=9的情况，比原来的ElseIf更简洁严谨

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