Excel VBA查找行、复制内容、粘贴到下一个工作表，然后删除原始数据

Sub CopyData()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("源工作表名称")
    Set wsTarget = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 获取源工作表中最后一行的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 复制数据到目标工作表
    wsSource.Range("A1:Z" & lastRow).Copy wsTarget.Range("A1")
    
    ' 删除原始数据
    wsSource.Range("A1:Z" & lastRow).ClearContents
End Sub