多单元格复制触发VBA条件格式报错，求逐个处理单元格方案

嘿，这个问题我太熟了！当你复制粘贴多个单元格时，Target变成了一个包含多单元格的Range对象，直接访问.Value会返回数组，而Select Case根本没法处理数组，这就是报错的根源。咱们只需要给代码加个循环，逐个处理每个单元格就行，同时还要注意避免事件循环触发的问题。

这里是修改后的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetRange As Range
    Dim cell As Range
    
    ' 先锁定需要处理的单元格范围：只处理$G$8:$OA$92内的单元格
    Set targetRange = Intersect(Target, Range("$G$8:$OA$92"))
    
    If Not targetRange Is Nothing Then
        ' 关闭事件触发，防止修改单元格颜色时重复触发Change事件
        Application.EnableEvents = False
        
        ' 逐个遍历每个需要处理的单元格
        For Each cell In targetRange.Cells
            With cell
                Select Case .Value
                    Case "Weekend"
                        .Interior.ColorIndex = 48
                    Case "VRIJ", "ADV"
                        .Interior.ColorIndex = 6
                    ' 如果你需要清除其他值的单元格颜色，取消下面的注释
                    ' Case Else
                    '     .Interior.ColorIndex = xlColorIndexNone
                End Select
            End With
        Next cell
        
        ' 一定要恢复事件触发，否则后续的Change事件都不会生效
        Application.EnableEvents = True
    End If
End Sub

关键修改点说明： #

• 遍历单个单元格：用For Each cell In targetRange.Cells循环，确保每个单元格都被单独判断，不管是单个还是多个单元格选中，都能正常处理。
• 锁定处理范围：先通过Intersect获取Target和目标区域的交集，避免处理无关单元格，提升代码效率。
• 关闭事件触发：修改单元格的Interior.ColorIndex会再次触发Worksheet_Change事件，所以必须先关闭Application.EnableEvents，处理完后再恢复，否则会陷入循环调用，甚至导致Excel崩溃。
• 容错性：如果需要处理其他值的情况，可以添加Case Else分支，比如清除颜色。

原来的代码直接操作Target整体，当Target是多单元格时，.Value返回数组，Select Case无法匹配，自然就报错了。现在改成逐个处理单个单元格，完美解决多选区的问题~

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