如何在Excel中勾选复选框时将某一行移动到新工作表？

本文介绍了在Excel中勾选复选框时如何将特定行移动到新工作表。

使用VBA代码在勾选复选框时移动行

使用VBA代码在勾选复选框时移动行

请按照以下步骤操作，当在Excel中勾选复选框时，将某一行移动到指定的工作表。

1. 转到需要基于复选框移动行的工作表，点击 开发工具 > 插入 > 复选框（ActiveX控件）以插入一个复选框。参见截图：

2. 右键单击工作表标签，然后从右键菜单中点击 查看代码。参见截图：

3. 在打开的 Microsoft Visual Basic for Applications 窗口中，请将以下VBA代码复制并粘贴到代码窗口中。

VBA代码：在勾选复选框时将行移动到指定工作表

Private Sub CheckBox1_Click()
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    If CheckBox1.value Then
        xAddress = Application.ActiveWindow.RangeSelection.Address
        Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        Set xRg = xRg(1).EntireRow
        xRg.Copy
        ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
        xRg.Clear
        Application.CutCopyMode = False
    End If
End Sub

备注：在代码中，Sheet3 和 A1 表示指定的行将被移动到Sheet3的第一行。请根据您的需求更改它们。

4. 按 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

5. 通过点击 开发工具 选项卡上的 设计模式 按钮来关闭设计模式。

6. 勾选复选框后，会弹出一个 Kutools for Excel 对话框，请选择要移动的行的第一个单元格（或整行），然后点击 确定 按钮。随后，指定的整行将立即被移动到某个工作表中。参见截图：

相关文章：

• 如何在Excel中基于单元格值将整行移动到另一个工作表？
• 如何在Excel中基于单元格值将整行移动到活动工作表的底部？