VBA将行数复制到新工作簿

Sub CopyRowsToNewWorkbook()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    
    '设置源工作簿和目标工作簿
    Set wbSource = ThisWorkbook '当前工作簿
    Set wbTarget = Workbooks.Add '新建工作簿
    
    '设置源工作表和目标工作表
    Set wsSource = wbSource.Worksheets("Sheet1") '源工作表名称为"Sheet1"
    Set wsTarget = wbTarget.Worksheets("Sheet1") '目标工作表名称为"Sheet1"
    
    '确定源工作表的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    '将源工作表的行复制到目标工作表
    wsSource.Rows("1:" & lastRow).Copy wsTarget.Rows("1") '复制从第一行到最后一行
    
    '保存目标工作簿
    wbTarget.SaveAs "C:\Path\To\NewWorkbook.xlsx" '保存为新工作簿，文件路径需根据实际情况修改
    
    '关闭工作簿
    wbTarget.Close
    Set wbTarget = Nothing
    
    MsgBox "行数已成功复制到新工作簿！"
End Sub