VBA excel -复制下面的行内容

Sub CopyRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的源工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2") ' 修改为实际的目标工作表名称
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 复制每一行的内容到目标工作表
    For i = 1 To lastRow
        sourceSheet.Rows(i).Copy targetSheet.Rows(i)
    Next i
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 提示复制完成
    MsgBox "行内容已复制到目标工作表。"
End Sub