VBA循环优化：无待复制数据时终止函数并返回上层循环

问题背景 #

跨程序拉取并格式化数据时，Rocket Terminal（又称Attachmate Xtreme）会带入含"TYP "的无效行，已通过循环删除这些行，但需要实现：当删除后待复制的区域（A2:I列）无数据时，终止当前函数，回到调用它的上层循环继续执行。

修改后的VBA代码 #

Sub ProcessReportData()
    Dim DataSheet As Worksheet
    Dim FormatSheet As Worksheet
    Dim DeleteRowData As Long
    Dim DeleteRowCounter As Long
    Dim lastDataRow As Long
    Dim copyRange As Range
    
    ' 直接绑定工作表，避免冗余的Select操作
    Set DataSheet = Sheets("Report Data")
    Set FormatSheet = Sheets("Report Formatting")
    
    ' 删除含"TYP   "的无效行
    With DataSheet
        DeleteRowData = .Cells(.Rows.Count, 3).End(xlUp).Row
        For DeleteRowCounter = DeleteRowData To 1 Step -1
            If .Cells(DeleteRowCounter, 3).Value = "TYP   " Then
                .Rows(DeleteRowCounter).EntireRow.Delete
            End If
        Next
        
        ' 检查A列从第2行开始是否有有效数据
        lastDataRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        If lastDataRow < 2 Then
            ' 无数据时终止当前函数，返回上层循环
            Exit Sub
        End If
        
        ' 明确定义要复制的有效数据区域
        Set copyRange = .Range("A2:I" & lastDataRow)
    End With
    
    ' 复制并粘贴数据
    copyRange.Copy
    FormatSheet.Range("A1").PasteSpecial xlPasteAll ' 可按需调整粘贴类型，比如xlPasteValues
    
    Application.CutCopyMode = False
End Sub

关键修改说明 #

• 移除Select操作：直接通过工作表和Range对象操作，避免因工作表激活状态变化引发的错误，代码更稳定高效。
• 新增数据存在判断：删除无效行后，通过lastDataRow获取A列最后一行数据的行号，若小于2（即A2及以下无数据），执行Exit Sub终止当前函数，回到上层循环。
• 明确复制范围：用行号直接定义复制区域，避免原代码中End(xlDown)可能选中空行的问题。

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