VBA含Left()的IF语句触发异常：动态合并单元格需求无法实现

原代码核心问题 #

• 第二个If里把Left函数写成了字符串（"left(RC[1], 6)"），根本没执行单元格内容的截取判断
• 靠ActiveCell.Select来回切换单元格，极易导致引用混乱，代码效率低
• 年份判断写得太冗余，且Else分支的手动移动单元格会打乱For Each的遍历逻辑

修正后的代码 #

Dim Response As Range
Dim eventName As String

For Each Response In Selection
    ' 检查当前A列单元格是否为"Yes"（转大写避免大小写问题）
    If UCase(Response.Value) = "YES" Then
        eventName = Response.Offset(0, 1).Value ' 获取对应B列的事件名称
        ' 先判断内容长度够不够，避免报错
        If Len(eventName) >= 6 Then
            ' 简化年份+开头的判断逻辑
            Select Case Left(eventName, 6)
                Case "2020 C", "2021 C", "2022 C", "2023 C", "2024 C", "2025 C"
                    ' 直接定位到D列单元格，赋值合并内容
                    Response.Offset(0, 3).Value = Response.Offset(0, 2).Value & " " & eventName
                    ' 如果需要保留公式而非纯文本，替换成下面这行：
                    ' Response.Offset(0, 3).FormulaR1C1 = "=CONCAT(RC[-1],"" "",RC[-2])"
            End Select
        End If
    End If
Next Response

关键修正点说明 #

1. 修复判断逻辑：用VBA原生的Left函数截取B列内容，而非字符串字面量，真正实现开头匹配
2. 去掉单元格选择操作：直接通过Offset定位目标单元格，杜绝因选中位置混乱导致的错误
3. 简化逻辑写法：用Select Case替代一堆Or判断，代码更整洁
4. 增加边界判断：先检查事件名称长度≥6，避免内容过短时触发截取报错
5. 修正循环干扰：删掉手动移动ActiveCell的代码，For Each会自动遍历选中的每个单元格

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