Excel VBA宏复制行/列时触发Run Time Error 13问题求助

嘿，这个问题我太熟悉了！你碰到的Run Time Error 13（类型不匹配），根源出在复制多行/多列的时候：这时候Target不再是单个单元格，而是一个多单元格区域，Target.Value会返回一个数组，而你原代码里直接拿它和字符串（比如"Create Account_Personal"）做比较，类型不匹配自然就报错了。

修复方案 #

我给你修改了代码，核心是遍历每个受影响的单元格，同时加上事件禁用和错误处理，彻底解决复制粘贴的问题：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先禁用事件，防止修改单元格时递归触发本事件
    Application.EnableEvents = False
    
    ' 出错时自动跳转到清理步骤，保证事件能恢复
    On Error GoTo Cleanup

    Dim cell As Range
    ' 只锁定第3到99行的区域，减少不必要的判断
    Dim validRange As Range
    Set validRange = Intersect(Target, Me.Rows("3:99"))

    If Not validRange Is Nothing Then
        ' 逐个处理每个受影响的单元格
        For Each cell In validRange
            ' 处理B列（第2列）的逻辑
            If cell.Column = 2 Then
                If cell.Value = "Create Account_Personal" Then
                    cell.Offset(0, 3).Resize(1, 9).Value = "NA" ' 批量设置3到11列为NA，简化代码
                    cell.Offset(0, 19).Value = "NO"
                    cell.Offset(0, 22).Value = "NO THANKS"
                ElseIf cell.Value <> "Create Account_Personal" Then
                    cell.Offset(0, 3).Value = "Select Country"
                End If
            End If

            ' 处理E列（第5列）的逻辑
            If cell.Column = 5 Then
                If cell.Value <> "NA" Then
                    cell.Offset(0, 1).Value = "select State"
                    ' 批量清空后续单元格，简化代码
                    cell.Offset(0, 2).Resize(1, 14).Value = ""
                    cell.Offset(0, 9).Resize(1, 7).Value = ""
                End If
            End If
        Next cell
    End If

Cleanup:
    ' 不管有没有出错，都要恢复事件启用状态
    Application.EnableEvents = True
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "出错啦：" & Err.Description, vbExclamation
    End If
End Sub

关键改进点 #

• 避免递归：开头加Application.EnableEvents = False，防止代码修改单元格时再次触发Worksheet_Change，造成无限循环。
• 逐个处理单元格：遍历validRange里的每个cell，确保cell.Value永远是单个单元格的值，不会出现数组和字符串比较的类型不匹配问题。
• 简化代码：用Resize批量设置单元格值，比如cell.Offset(0,3).Resize(1,9).Value = "NA"，代替原来一行一行写的Offset，代码更简洁易维护。
• 错误兜底：On Error GoTo Cleanup保证即使代码出错，事件也能恢复启用，不会导致后续的工作表变更事件失效。

为什么原代码会报错？ #

原代码里的Target.Cells.Count = 1判断，只有当你修改单个单元格时才会生效，但复制粘贴多单元格时，这个判断会跳过，而且此时Target.Value是数组，直接和字符串比较就会触发Error 13。现在遍历每个单元格的方式，不管是单个还是多个单元格操作，都能正确处理。

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