Excel宏拖动复制数据范围时触发Type Mismatch错误的解决办法

这个问题的核心原因很明确：当你拖动填充柄批量修改单元格时，Target不再是单个单元格，而是一个包含多个单元格的Range对象。这时候直接执行If Target = "False" Then，Excel无法将一个多单元格区域和单个字符串进行比较，自然就抛出了类型不匹配错误。

下面是针对这个问题的完整解决方案，同时还优化了你的逻辑细节：

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，避免设置样式时递归触发本宏
    Application.EnableEvents = False
    ' 捕获错误，确保事件最后能恢复开启
    On Error Resume Next
    
    If ActiveSheet.Name = "Ribs" Then
        ' 先处理G2:K200区域的样式设置
        If Not Intersect(Target, Me.Range("G2:K200")) Is Nothing Then
            Dim cell As Range
            ' 遍历Target中的每个单元格，逐个处理
            For Each cell In Intersect(Target, Me.Range("G2:K200")).Cells
                ' 优先判断布尔值（Excel原生的TRUE/FALSE是布尔类型，不是字符串）
                If cell.Value = False Then
                    cell.Style = "Bad"
                ElseIf cell.Value = True Then
                    cell.Style = "Good"
                ' 保留你原来的数值判断逻辑（如果需要的话）
                ElseIf IsNumeric(cell.Value) Then
                    cell.Style = "Good"
                End If
            Next cell
        ' 处理D2:D200区域的RotateRib调用
        ElseIf Not Intersect(Target, Me.Range("D2:D200")) Is Nothing Then
            Dim targetCell As Range
            For Each targetCell In Intersect(Target, Me.Range("D2:D200")).Cells
                RotateRib targetCell.Address
            Next targetCell
        End If
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

关键修改点说明 #

• 遍历单个单元格：用For Each cell In Target.Cells（更严谨的是和目标区域取交集后遍历），确保每个单元格都被单独判断，避免多区域直接比较的问题。
• 事件开关保护：添加Application.EnableEvents = False，防止设置单元格样式时再次触发Worksheet_Change宏造成递归；同时加入错误捕获，确保即使代码出错，事件也能恢复开启。
• 修正布尔值判断：你原来的代码判断的是字符串"False"，但Excel中手动输入或填充的TRUE/FALSE是布尔类型值，不是字符串，所以直接判断cell.Value = False/True才是正确的逻辑。
• 严谨的区域交集：用Intersect(Target, Me.Range("G2:K200"))代替直接判断，确保只处理目标区域内的单元格，避免意外处理其他区域。

额外提示 #

如果你的需求只是布尔值TRUE设为Good，FALSE设为Bad，其实可以考虑用Excel的条件格式代替VBA宏，这样更稳定且不需要维护代码：

• 选中G2:K200区域
• 打开「条件格式」-「新建规则」
• 选择「使用公式确定要设置格式的单元格」
• 输入公式=G2=TRUE，设置为Good样式；再新建规则输入=G2=FALSE，设置为Bad样式

不过如果必须用VBA，上面的代码就能完美解决批量填充时的错误问题。

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