Excel宏复制残留空行问题求助：清除内容后仍识别旧行数

问题核心：
清空Excel数据后，UsedRange.SpecialCells(xlCellTypeLastCell).Row会保留之前的行数记录，导致宏错误复制空行。

解决方案：精准定位实际有内容的最后一行 #

直接以数据列（比如A列，表格首列）为基准，从底部向上查找第一个非空单元格，这样能准确获取实际有效数据的最后一行，不受历史记录影响。

修改复制代码：

With myWorkSheet
    Dim lastRow As Long
    ' 从A列最底部向上找第一个非空单元格的行号
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    ' 仅当存在数据行（行号≥2，因为表头在A1）时执行复制
    If lastRow >= 2 Then
        .Range("A2:D" & lastRow).Copy
    End If
End With

修改清空内容代码：

With myWorkSheet
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    If lastRow >= 2 Then
        .Range("A2:D" & lastRow).ClearContents
    End If
End With

补充说明： #

如果你的表格首列可能存在空值，可以换成其他必然有数据的列（比如B列就改成Cells(.Rows.Count, "B")）。这个方法比依赖UsedRange更稳定，因为UsedRange会保留单元格格式、条件格式等非内容状态的记录，导致范围判断不准。

内容的提问来源于stack exchange，提问作者Franz Müller