Excel VBA批量复制粘贴触发Worksheet_Change事件报错求助

原代码在批量复制整列时报错，核心原因是未处理多单元格区域的情况，直接对Target整体操作，同时条件判断逻辑存在错误（13 And 12 And 11是非法的单元格引用方式）。以下是修改后的代码，支持批量操作并可指定目标行列：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo ENABLE_EVENTS
    
    ' 定义允许操作的目标列（可根据需求修改）
    Dim allowedCols As Variant
    allowedCols = Array(1, 2, 3, 4, 5, 6, 7, 8, 14)
    
    Dim cell As Range
    ' 遍历批量操作中的每个单元格
    For Each cell In Target
        ' 跳过表头行（第1行），可自行修改表头行号
        If cell.Row <= 1 Then GoTo NextCell
        
        ' 检查当前单元格是否在允许的目标列中
        If Not IsError(Application.Match(cell.Column, allowedCols, 0)) Then
            ' 修正原条件：判断11、12、13列都不为空
            If cell.Value <> "" And _
               Cells(cell.Row, 11).Value <> "" And _
               Cells(cell.Row, 12).Value <> "" And _
               Cells(cell.Row, 13).Value <> "" Then
                cell.Interior.ColorIndex = 0
                cell.Value = Cells(cell.Row, 13).Value & ": " & cell.Value & " [" & Cells(cell.Row, 9).Value & "]"
            Else
                ' 当13列为空时，清空当前单元格内容
                If Cells(cell.Row, 13).Value = "" Then
                    cell.Value = ""
                End If
            End If
        End If
NextCell:
    Next cell

ENABLE_EVENTS:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        Dim Msg As String
        Msg = "错误编号: " & Str(Err.Number) & vbCrLf & _
              "来源: " & Err.Source & vbCrLf & _
              "错误行: " & Erl & vbCrLf & _
              "描述: " & Err.Description
        MsgBox Msg, vbCritical, "运行错误"
    End If
End Sub

关键修改点 #

• 支持批量操作：通过For Each cell In Target遍历每个单元格，避免直接对多单元格区域操作导致的错误。
• 修正条件判断：将原错误的13 And 12 And 11拆分为独立的列非空判断，确保逻辑正确。
• 灵活指定目标行列：通过allowedCols数组定义允许操作的列，如需修改目标列，直接修改数组内容即可；表头行通过cell.Row <=1跳过，可自行调整表头行号。
• 优化错误提示：简化错误信息的中文表述，更易定位问题。

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