基于单元格值自动隐藏行的宏优化及Run-time error 13修复求助

嘿，我来帮你搞定这个宏的问题！你遇到的两个问题其实都是Excel宏编写里的常见小坑，我给你修正后的代码，再一步步解释为啥这么改～

问题根源分析 #

1. 响应缓慢：原代码大概率没关闭屏幕更新和事件触发，Excel每执行一步都要刷新界面，加上100行的遍历操作，自然会变慢；而且如果没禁用事件，修改行隐藏时可能会重复触发Worksheet_Change事件，进一步拖慢速度。
2. 类型不匹配错误：Worksheet_Change事件会在任何单元格被修改时触发，当你改的不是C15时，代码还在尝试处理非预期的单元格值，就会抛出类型不匹配的错误。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理C15单元格的修改，其他单元格直接退出，避免错误
    If Target.Address <> "$C$15" Then Exit Sub
    
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim selectedValue As Variant
    
    Set ws = Me
    selectedValue = Target.Value
    
    ' 关闭屏幕更新和事件触发：提升速度，避免重复触发事件
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 错误处理：确保即使代码出错，也能恢复Excel的正常设置
    On Error GoTo Cleanup
    
    ' 获取数据最后一行（这里假设数据在A列，根据你的实际情况修改列字母）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 先取消所有目标行的隐藏，避免之前的状态残留
    ws.Rows("16:" & lastRow).Hidden = False ' 假设数据从第16行开始，按需修改
    
    ' 根据C15的选择值隐藏对应行
    If Not IsEmpty(selectedValue) Then
        For i = 16 To lastRow
            ' 这里替换成你的判断逻辑！示例：如果D列的值不等于C15，就隐藏该行
            If ws.Cells(i, "D").Value <> selectedValue Then
                ws.Rows(i).Hidden = True
            End If
        Next i
    End If

Cleanup:
    ' 恢复Excel的屏幕更新和事件触发，必须执行
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "宏执行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键修改说明 #

• 限定触发范围：第一行If Target.Address <> "$C$15" Then Exit Sub确保只有修改C15时才执行代码，彻底解决其他区域修改触发错误的问题。
• 提升执行速度：Application.ScreenUpdating = False关闭屏幕刷新，Application.EnableEvents = False禁用事件触发，避免修改行时重复触发Worksheet_Change，让100行的操作瞬间完成。
• 错误安全机制：On Error GoTo Cleanup确保即使代码中途出错，也能恢复Excel的正常设置，不会导致后续操作异常（比如屏幕一直不刷新、事件被禁用）。
• 避免状态残留：先取消所有目标行的隐藏，再重新判断隐藏，避免之前的选择残留导致显示异常。

按需调整的地方 #

1. 数据最后一行判断：如果你的数据不在A列，把ws.Cells(ws.Rows.Count, "A")里的"A"改成数据所在的列字母（比如"B"）。
2. 目标行范围：如果你的数据不是从第16行开始，把Rows("16:" & lastRow)里的16改成数据起始行号。
3. 判断逻辑：把ws.Cells(i, "D").Value <> selectedValue改成你实际的判断条件（比如某列的值等于C15才隐藏，或者其他规则）。

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