如何在 Excel 中选中复选框时将特定行移动到新工作表?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/1/21 16:12:17

Excel 是一款高效的电子表格程序，可帮助用户高效地组织和管理数据。能够根据特定情况(例如选中复选框时)将一行数据从一张工作表移动到另一张工作表是一项非常有用的功能。本课将指导您完成自动化此过程所需的步骤，从而简化数据管理职责并提高工作效率。

请注意，本教程专为 Microsoft Excel 创建，可能无法与其他电子表格程序兼容。这些说明也基于截至 2021 年 9 月的 Excel 功能。Excel 的菜单选项和用户界面可能会因您使用的 Excel 版本而略有不同。那么，让我们开始探索如何在 Excel 中，当复选框被选中时将特定行移动到新工作表!

选中复选框时将特定行移动到新工作表

在这里，我们首先绘制一个复选框，然后将 VBA 代码添加到工作表来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中，当复选框被选中时将特定行移动到新工作表。

步骤 1

假设有一个 Excel 工作表，其中的数据与下图类似。

右键单击 > 查看代码 >复制。

首先，右键单击工作表名称，选择"查看代码"以打开 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):", "Move Certain Row", 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 的第一行。