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

Excel 是一款高效的电子表格程序，使用户能够有效地组织和管理数据。根据特定情况（例如选中复选框）将一行数据从一个工作表移动到另一个工作表的功能是一个非常有用的特性。本教程将指导您完成自动化此过程所需的步骤，使您能够简化数据管理工作并提高生产力。

请注意，本教程是专门为 Microsoft Excel 创建的，可能不适用于其他电子表格程序。说明也基于 2021 年 9 月的 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 的第一行。

步骤 2

然后使用 Alt + Q 关闭 VBA 并退出设计模式。然后选中复选框，选择行的第一个单元格，然后单击“确定”。

Alt + Q > 设计模式 > 复选框 > 选择单元格 > 确定。

然后您将看到整行将被移动到新工作表。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中选中复选框时将某一行移动到新工作表以突出显示特定数据集。

更新于：2023-08-24

2K+ 次查看

启动您的 职业生涯

完成课程获得认证

开始学习
广告