基于单元格值在工作表之间移动行

Sub MoveRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim cellValue As String
    Dim lastRow As Long
    Dim targetRow As Long
    
    Set sourceSheet = ThisWorkbook.Sheets("源工作表") ' 替换成源工作表的名称
    Set targetSheet = ThisWorkbook.Sheets("目标工作表") ' 替换成目标工作表的名称
    
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row ' 获取源工作表的最后一行
    
    For i = lastRow To 1 Step -1
        cellValue = sourceSheet.Cells(i, "A").Value ' 获取源工作表的单元格值
        
        ' 根据单元格值移动行
        Select Case cellValue
            Case "条件1":
                targetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1 ' 获取目标工作表的下一行
                sourceSheet.Rows(i).Copy Destination:=targetSheet.Rows(targetRow) ' 复制行到目标工作表
                sourceSheet.Rows(i).Delete ' 删除源工作表的行
        End Select
    Next i
End Sub