VBA根据单元格值将行剪切并粘贴到另一个工作表中，并删除空行

Sub CutPasteRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历源工作表的每一行
    For i = lastRow To 1 Step -1
        ' 检查单元格的值是否符合条件，这里假设要剪切的行的值在第一列（A列）
        If sourceSheet.Cells(i, 1).Value = "要剪切的值" Then
            ' 将整行剪切并粘贴到目标工作表的下一行
            sourceSheet.Rows(i).Cut targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
            ' 删除源工作表中的空行
            sourceSheet.Rows(i).Delete
        End If
    Next i
End Sub