在Excel中選中復選框后如何將某一行移到新表中

發(fā)布:未知文本批量工具

在Excel中選中復選框后，如何將某一行移到新表中？

本文討論的是在Excel中選中復選框時將某一行移到新表中。

使用VBA代碼選中復選框時移動行

使用VBA代碼選中復選框時移動行驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！

當在Excel中選中復選框時，請執(zhí)行以下操作以將某一行移至指定的工作表。

1.移至您需要根據其移動行的工作表復選框，單擊 開發(fā)商 > 插頁 > 復選框（ActiveX控件） 插入一個復選框。看截圖：

2.右鍵單擊工作表選項卡，然后單擊 查看代碼 從右鍵單擊菜單中。看截圖：

3.在開幕 Microsoft Visual Basic應用程序 窗口，請將以下VBA代碼復制并粘貼到“代碼”窗口中。

VBA代碼：選中復選框后，將行移至指定的工作表中

Private Sub CheckBox1_Click()Dim xRg As RangeDim xAddress As StringOn Error Resume NextIf CheckBox1.value ThenxAddress = Application.ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)If xRg Is Nothing Then Exit SubSet xRg = xRg(1).EntireRowxRg.CopyActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceThemexRg.ClearApplication.CutCopyMode = FalseEnd IfEnd SubCopy

備注：在代碼中，Shee3和A1表示指定的行將移至Sheet3中的第一行。請根據您的需要進行更改。

4。按其他 + Q 關閉鍵 Microsoft Visual Basic應用程序 窗口。

5.通過單擊關閉設計模式 設計模式 上的按鈕 開發(fā)商 標簽。

6.選中復選框，然后選擇 Kutools for Excel 彈出對話框，請選擇您要移動的行的第一個單元格（或整個行），然后單擊 OK 按鈕。然后，指定的整個行將立即移動到某個工作表。看截圖：

相關文章：如何基于Excel中的單元格值將整行移動到另一張工作表？如何根據Excel中的單元格值將整行移動到活動工作表的底部？