(excel VBA)：将记录集的其余行复制到第二个工作表

Sub CopyRemainingRows()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的源工作表名称
    Set wsDestination = ThisWorkbook.Worksheets("Sheet2") ' 替换为实际的目标工作表名称
    
    ' 获取源工作表中最后一行的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' 复制数据到目标工作表
    wsSource.Range("A2:A" & lastRow).EntireRow.Copy Destination:=wsDestination.Range("A2")
End Sub