VBA使用命令按钮根据单元格值剪切、删除行和将行移动到另一个工作表

Private Sub CommandButton1_Click()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim cellValue As String
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表名称")
    Set wsDestination = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历源工作表的每一行
    For i = lastRow To 1 Step -1
        ' 获取当前行的单元格值
        cellValue = wsSource.Cells(i, "A").Value
        
        ' 根据单元格值进行操作
        If cellValue = "剪切" Then
            ' 将当前行剪切到目标工作表的最后一行
            wsSource.Rows(i).Cut wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Offset(1)
        ElseIf cellValue = "删除" Then
            ' 删除当前行
            wsSource.Rows(i).Delete
        ElseIf cellValue = "移动" Then
            ' 将当前行移动到目标工作表的最后一行
            wsSource.Rows(i).Move wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next i
End Sub