VBA代码中IF判断内合并单元格拼接字符串操作不生效问题

报错核心原因 #

你的修改后代码存在两个底层逻辑错误：

• 运算优先级错误：VBA中.属性调用的优先级远高于字符串拼接符&，你写的ws.Cells(2,20) & "Equity".Value会优先执行"Equity".Value，但字符串属于VBA基础数据类型，不存在Value属性，直接触发运行时异常。
• 匹配规则不一致：原代码拼接的是带前置空格的" Equity"，你修改后的代码省略了前置空格，即使语法修复后，匹配结果也会和原有逻辑不符。

修复方案 #

场景1：不需要保留原代码中修改ws.Cells(2,20)单元格值的逻辑，仅需要用拼接后的值做判断 #

修正后的判断代码如下：

If (ws.Cells(2, 20).Value & " Equity") = ws.Cells(i, 1).Value Then

调整说明：把.Value属性绑定到Cells对象上，先取单元格的值再做字符串拼接，再和目标值比较。

场景2：需要保留原代码中给ws.Cells(2,20)追加" Equity"的逻辑 #

不建议合并两段逻辑，原代码的写法是最优解：先修改一次单元格值，后续循环直接复用修改后的值即可。如果强行合并会导致每次循环都重复执行字符串拼接操作，降低代码运行效率。

额外优化建议 #

原代码中循环内的Cells没有绑定工作表对象，默认取当前活动工作表的值，建议统一加上ws.限定符，避免切换活动工作表后代码运行出错：

If ws.Cells(2, 23) = "BUY" Then
    ws.Cells(i, 20) = ws.Cells(2, 22)
    ws.Cells(i, 21) = ws.Cells(2, 21)
Else
    ws.Cells(i, 22) = ws.Cells(2, 22)
    ws.Cells(i, 23) = ws.Cells(2, 21)
End If

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