在 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+ 次檢視

啟動您的 職業生涯

完成課程獲得認證

開始學習
廣告
© . All rights reserved.