清除特定样式单元格内容的VBA代码崩溃问题求助

原代码的核心问题是遍历整个工作表的所有单元格，效率极低且容易触发异常，同时冗余的激活、选中操作也会增加出错概率。以下是优化后的代码：

Sub Reset_User_Inputs()
    Dim targetStyle As String
    Dim styleCells As Range
    
    targetStyle = "RESETABLE"
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    On Error Resume Next ' 捕获样式不存在的异常
    Set styleCells = Sheet1.Cells.SpecialCells(xlCellTypeAllFormatConditions).SpecialCells(xlCellTypeSameFormatConditions, targetStyle)
    On Error GoTo 0
    
    If Not styleCells Is Nothing Then
        styleCells.ClearContents
    End If
    
    Application.ScreenUpdating = True
End Sub

关键优化点： #

• 直接通过SpecialCells定位使用指定样式的单元格，避免遍历整个工作表，大幅提升效率
• 关闭屏幕更新减少界面卡顿，避免假死
• 增加错误捕获，当"RESETABLE"样式不存在时不会崩溃
• 移除冗余的Activate和Select操作，VBA操作单元格无需激活或选中

补充说明： #

如果你的样式是自定义单元格样式（不是条件格式），可以改用以下代码：

Sub Reset_User_Inputs()
    Dim targetStyle As String
    Dim cell As Range
    Dim styleFound As Boolean
    
    targetStyle = "RESETABLE"
    styleFound = False
    
    Application.ScreenUpdating = False
    
    ' 先检查样式是否存在，避免报错
    On Error Resume Next
    styleFound = Not Sheet1.Parent.Styles(targetStyle) Is Nothing
    On Error GoTo 0
    
    If styleFound Then
        ' 仅遍历使用了该样式的单元格区域（而非整个工作表）
        For Each cell In Sheet1.UsedRange
            If cell.Style = targetStyle Then
                cell.ClearContents
            End If
        Next cell
    End If
    
    Application.ScreenUpdating = True
End Sub

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