根据复选框将行移动到其他工作表的最后一行

Sub MoveRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Range
    Dim targetRow As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表中复选框所链接的单元格
    Set sourceRow = sourceSheet.Range("链接单元格的地址")
    
    ' 获取目标工作表中最后一行的下一行
    Set targetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
    
    ' 检查复选框是否被选中
    If sourceRow.Value = True Then
        ' 将源工作表中的行复制到目标工作表的最后一行
        sourceRow.EntireRow.Copy targetRow
        ' 删除源工作表中的行
        sourceRow.EntireRow.Delete
    End If
End Sub