如何用VBA高效清除Excel指定区域中非'test'的内容？

你当前逐个遍历单元格的方式速度慢，核心原因是频繁和Excel界面交互。下面两种方法能大幅提升处理速度：

方法一：数组操作（最优，大范围区域首选） #

把区域数据一次性读入内存数组，处理完再批量写回单元格，彻底减少单元格交互次数：

Sub ClearNonTestValues()
    Dim wsTest As Worksheet
    Set wsTest = ThisWorkbook.Worksheets("你的工作表名") '替换成实际工作表名称
    
    Dim rng As Range
    Set rng = wsTest.Range("I5:NP83")
    
    '将区域数据读入内存数组
    Dim dataArr As Variant
    dataArr = rng.Value
    
    Dim i As Long, j As Long
    '遍历数组处理内容
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        For j = LBound(dataArr, 2) To UBound(dataArr, 2)
            If dataArr(i, j) <> "test" Then
                dataArr(i, j) = ""
            End If
        Next j
    Next i
    
    '将处理后的数组写回原区域
    rng.Value = dataArr
End Sub

方法二：筛选批量清除（适合规则表格结构） #

利用Excel筛选功能快速定位非'test'单元格，批量清除：

Sub ClearNonTestWithFilter()
    Dim wsTest As Worksheet
    Set wsTest = ThisWorkbook.Worksheets("你的工作表名")
    
    Dim rng As Range
    Set rng = wsTest.Range("I5:NP83")
    
    '临时关闭屏幕更新和事件，提速
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    '对区域第一列（对应原I列）设置筛选，显示非'test'内容
    rng.AutoFilter Field:=1, Criteria1:="<>test"
    
    '清除筛选出的可见单元格内容
    rng.SpecialCells(xlCellTypeVisible).ClearContents
    
    '取消筛选
    wsTest.AutoFilterMode = False
    
    '恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

额外提速技巧 #

• 处理前关闭ScreenUpdating和EnableEvents，处理后记得恢复
• 全程避免用Select/Activate，直接操作对象
• 优先选择数组操作，大范围数据下速度碾压循环

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