使用VBA复制和粘贴到新表行中

Sub CopyPasteToNewRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 复制源工作表的数据到目标工作表的下一行
    sourceSheet.Range("A1:D" & lastRow).Copy targetSheet.Range("A" & lastRow + 1)
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 提示复制和粘贴完成
    MsgBox "数据已成功复制和粘贴到新行中。"
End Sub