如何在VBA中不使用Selection.EntireRow.Select选中CurrentRegion的行

问题根源 #

你原来的代码耗时过长，核心原因是使用了Select和Selection操作——这两个操作会触发Excel界面刷新，遍历700多张表时会累积大量不必要的开销，而且还选中了整行，并非你需要的CurrentRegion精准范围。

最优解决方案 #

直接操作Range对象，完全规避Select操作，同时关闭Excel的屏幕更新和事件触发，大幅提升遍历效率。以下是适配需求的代码：

Sub ProcessCurrentRegionRows()
    Dim ws As Worksheet
    Dim currentRegionRange As Range
    
    ' 关闭界面刷新与事件，消除耗时的UI交互
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 错误处理：确保异常时恢复Excel设置
    On Error GoTo ResetSettings
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 动态获取当前表以A3为起点的CurrentRegion
        Set currentRegionRange = ws.Range("A3").CurrentRegion
        
        ' 这里直接对目标范围执行操作，无需选中（示例：设置填充色）
        ' currentRegionRange.Interior.Color = RGB(240, 240, 240)
        
        ' 如果确实需要选中该范围（尽量避免，仅在必要时使用）
        ' currentRegionRange.Select
    Next ws

ResetSettings:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ' 捕获并提示错误（如果有）
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
End Sub

关键说明 #

1. 避免Select/Selection：这是VBA性能优化的核心原则，直接通过Range对象操作数据或格式，无需依赖界面选中操作。
2. 动态适配不同工作表：代码中ws.Range("A3").CurrentRegion会自动识别每个工作表中A3所在的连续数据区域，无论区域大小如何变化都能精准匹配。
3. 批量操作提速：遍历前关闭ScreenUpdating和EnableEvents，避免每张工作表切换时的界面刷新，700张表的处理速度会提升数倍。
4. 灵活调整起始点：如果不同工作表的CurrentRegion起始位置不是A3，可替换为动态定位逻辑（比如ws.Cells(ws.UsedRange.Row + 1, 1)，根据实际需求调整）。

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