能否对下述VBA代码子过程进行优化以提升运算速度？

当然可以优化！这段代码在处理大数据量的时候确实会有明显的速度瓶颈，我来给你拆解几个关键优化点，再给出重构后的代码：

核心优化方向 #

• 禁用Excel后台干扰项：Excel默认的屏幕更新、自动计算、事件触发都会在代码运行时拖慢速度，先把这些临时关掉，运行结束后再恢复
• 明确指定工作表，避免依赖ActiveSheet：原代码依赖ActiveSheet很容易出问题（比如不小心切换了工作表），直接绑定到具体工作表更可靠
• 动态获取数据范围，避免硬编码行号：20000行的硬编码如果数据没到这么多会做无用功，超过了又漏处理，动态找最后一行更灵活高效
• 添加错误处理，避免崩溃：如果当前工作表没有筛选状态，ShowAllData会直接报错；如果没有匹配的筛选结果，ClearContents也会出问题，必须加判断
• 减少对象引用次数：尽量一次性定义好目标范围，避免重复调用Range对象，减少Excel的交互开销

优化后的完整代码 #

Sub OptimizedCAL() ' 优化版：数据分析前清理数据，移除不必要字段
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    Dim filterCrit As Variant
    
    ' 初始化变量，建议替换成你的实际工作表名称，比如wb.Worksheets("数据原始表")
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    filterCrit = Array("Customer Informations", "Customer Sale Statistic", "=", "Date:", "Group:", "Level:", _
                       "Real Value - 001", "2", "7", "3", "9", "12", "Target:")
    
    ' 关闭Excel后台干扰，大幅提升运行速度
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    On Error GoTo Cleanup ' 错误处理：确保无论是否出错，都能恢复Excel设置
    
    ' 动态获取H列最后一行数据，避免硬编码行号
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    If lastRow < 2 Then GoTo Cleanup ' 没有有效数据，直接退出
    
    Set targetRange = ws.Range("H1:T" & lastRow)
    
    ' 应用筛选条件
    targetRange.AutoFilter Field:=1, Criteria1:=filterCrit, Operator:=xlFilterValues
    
    ' 清除筛选出的可见内容（跳过表头），处理无匹配结果的情况
    On Error Resume Next
    targetRange.Offset(1).SpecialCells(xlCellTypeVisible).ClearContents
    On Error GoTo Cleanup
    
    ' 取消筛选：先判断是否处于筛选状态，避免报错
    If ws.AutoFilterMode Then
        ws.ShowAllData
    End If
    
Cleanup:
    ' 恢复Excel默认设置
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    
    ' 如果运行中出现错误，提示用户
    If Err.Number <> 0 Then
        MsgBox "数据清理过程中出现错误：" & Err.Description, vbExclamation
    End If
End Sub

额外建议 #

如果你后续需要处理的数据集非常大（比如10万行以上），可以考虑直接用数组操作替代筛选+清除内容，速度会更快——不过当前的优化版本已经能覆盖绝大多数常规场景了。

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