粘贴到另一个工作表的下一个空行

在Excel VBA中，可以使用以下代码将选定范围的内容粘贴到另一个工作表的下一个空行：

Sub PasteToNextEmptyRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为源工作表的名称
    Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为目标工作表的名称
    
    ' 获取目标工作表的最后一行
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 将选定范围的内容复制到目标工作表的下一个空行
    sourceSheet.Range("A1:B10").Copy targetSheet.Cells(lastRow + 1, 1)
End Sub

在上面的示例中，假设需要将源工作表的范围"A1:B10"粘贴到目标工作表的下一个空行。您需要根据实际情况修改源工作表和目标工作表的名称以及要复制的范围。可以通过更改"A1:B10"来定义您要复制的范围。