将多个工作表中的行复制到一个工作表中

Sub CopyRowsToWorksheet()
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表最后一行
    lastRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, 1).End(xlUp).Row
    
    ' 复制源工作表的数据到目标工作表
    sourceWorksheet.Rows("1:" & lastRow).Copy targetWorksheet.Rows(targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row + 1)
    
    ' 清除剪贴板中的数据
    Application.CutCopyMode = False
    
    ' 提示复制完成
    MsgBox "复制完成！"
End Sub