VBA技术问询：如何先定位Data工作表首空行再复制Sheet2数据

你的代码核心问题有两个：一是粘贴操作放在了循环内部，导致还没定位到目标空行就执行了粘贴；二是依赖Select/Selection的操作逻辑很容易出问题，而且遍历整列找空行效率极低。

下面是修正后的代码，完全避免了Select操作，能精准定位到Data表的第一个空行再粘贴：

Sub CopyToNextEmptyRow()
    ' 定义工作表对象，避免依赖Select操作
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRow As Long
    
    ' 指定源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet2")
    Set targetSheet = ThisWorkbook.Sheets("Data")
    
    ' 获取Sheet2中A2开始到该行最后一个有数据的单元格的范围
    Set sourceRange = sourceSheet.Range("A2", sourceSheet.Cells(2, sourceSheet.Columns.Count).End(xlToLeft))
    
    ' 定位Data表A列最后一个非空行，下一行就是第一个空行
    targetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 复制并粘贴值到目标位置
    sourceRange.Copy
    targetSheet.Cells(targetRow, "A").PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板，避免残留内容影响后续操作
    Application.CutCopyMode = False
End Sub

关键修改说明： #

• 移除所有Select操作：直接通过工作表对象引用单元格，彻底避免因选中位置错误导致的粘贴偏差
• 高效定位空行：用Cells(Rows.Count, "A").End(xlUp).Row + 1快速找到A列最后一个非空行的下一行，比遍历整列效率提升明显
• 调整粘贴逻辑顺序：先定位目标空行，再执行粘贴操作，逻辑更严谨
• 添加剪贴板清理：避免复制操作后剪贴板一直保留内容，减少不必要的内存占用

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