如何修复Worksheet Change Event中非连续单元格范围的语法错误？

你的代码核心问题是Range对象的地址字符串拼接错误——VBA不会自动解析双引号内的变量，必须把变量和字符串部分分开拼接。以下是两种修复方案：

方案1：正确拼接地址字符串 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastrow As Long
    lastrow = 5

    ' 正确拼接单元格地址：把变量从字符串中剥离，用&连接
    If Not Intersect(Target, Range("A" & lastrow & ", C" & lastrow)) Is Nothing Then
        MsgBox "Hello"
    End If
End Sub

方案2：用Union方法合并两个单元格（可读性更强） #

如果不想处理字符串拼接，可以用Union函数直接合并两个单独的Range对象，逻辑更清晰：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastrow As Long
    Dim targetRange As Range
    lastrow = 5

    ' 合并A列和C列的目标行单元格
    Set targetRange = Union(Range("A" & lastrow), Range("C" & lastrow))
    
    If Not Intersect(Target, targetRange) Is Nothing Then
        MsgBox "Hello"
    End If
End Sub

额外注意事项 #

建议在事件开头加上Application.EnableEvents = False，避免触发递归（比如代码里修改单元格时会再次触发Change事件），结尾再恢复为True：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastrow As Long
    Dim targetRange As Range
    lastrow = 5

    Application.EnableEvents = False ' 禁用事件触发
    On Error GoTo ResetEvents ' 确保出错时也能恢复事件

    Set targetRange = Union(Range("A" & lastrow), Range("C" & lastrow))
    
    If Not Intersect(Target, targetRange) Is Nothing Then
        MsgBox "Hello"
    End If

ResetEvents:
    Application.EnableEvents = True ' 恢复事件触发
End Sub

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