Excel VBA复制非空行问题：空白工作表误复制表头

核心问题分析 #

原代码未判断源工作表是否存在数据行：当源表仅含表头（lastRow=1）时，Range("A2:A1")会被Excel自动调整为A1:A2，导致表头（第1行）被误复制。

修复后的代码方案 #

1. 通用复制过程（替代10个重复的cpynpst过程） #

将重复逻辑封装为通用函数，只需传入源工作表名称即可，大幅减少冗余代码：

Sub CopyNonEmptyRowsToAllLets(sourceSheetName As String)
    Dim sourceSheet As Worksheet, targetSheet As Worksheet
    Dim lastRow As Long, targetNextRow As Long
    
    ' 绑定源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets(sourceSheetName)
    Set targetSheet = ThisWorkbook.Sheets("All Lets")
    
    ' 获取源表A列最后非空行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 仅当存在数据行（lastRow > 1，表头在第1行）时执行复制
    If lastRow > 1 Then
        ' 复制第2行到最后一行的整行数据
        sourceSheet.Rows("2:" & lastRow).Copy
        ' 获取目标表下一个空行
        targetNextRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1
        ' 粘贴到目标表
        targetSheet.Cells(targetNextRow, 1).PasteSpecial xlPasteAll
        ' 清除复制缓存
        Application.CutCopyMode = False
    End If
End Sub

2. 批量调用过程（替代原alllets） #

通过数组列出所有需要处理的源工作表，循环调用通用过程：

Sub AllLets()
    ' 替换为你的10个源工作表名称
    Dim sourceSheetList As Variant
    sourceSheetList = Array( _
        "Staines - H Lettings", _
        "SheetName2", _
        "SheetName3", _
        "SheetName4", _
        "SheetName5", _
        "SheetName6", _
        "SheetName7", _
        "SheetName8", _
        "SheetName9", _
        "SheetName10" _
    )
    
    Dim sheetName As Variant
    For Each sheetName In sourceSheetList
        CopyNonEmptyRowsToAllLets sheetName
    Next sheetName
End Sub

关键改进点 #

• 添加数据行判断：If lastRow > 1 Then确保只有存在数据时才复制，避免空表复制表头。
• 消除代码冗余：用通用过程替代10个重复的cpynpst系列过程，后续修改逻辑只需维护一处。
• 明确复制范围：直接用Rows("2:" & lastRow)指定数据行，避免反向范围导致的意外复制。

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