如何將重復的行移動到Excel中的另一個工作表？

現在，如果您有一個數據范圍列表，其中包含一個特定列中的某些重復值，那么您現在想要根據重復單元格將整個行移動到另一張工作表。 您如何在Excel中處理此任務？

根據一列中的重復單元格將整行移動到另一張工作表

根據重復的行將整個行移動到另一張工作表

根據一列中的重復單元格將整行移動到另一張工作表 驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

如果一列中有重復的值，則將整行移動到另一張工作表中，以下VBA代碼可以幫您一個忙：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊”窗口中。

VBA代碼：根據一列中的重復單元格將整行移動到另一張工作表：

Sub CutDuplicates()Updateby ExtendofficeDim xRgS As RangeDim xRgD As RangeDim I As Long, J As LongOn Error Resume NextSet xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)If xRgS Is Nothing Then Exit SubSet xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)If xRgD Is Nothing Then Exit SubxRows = xRgS.Rows.CountJ = 0For I = xRows To 1 Step -1If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 ThenxRgS(I).EntireRow.Copy xRgD.Offset(J, 0)xRgS(I).EntireRow.DeleteJ = J + 1End IfNextEnd SubCopy

3。 然后按 F5 鍵以運行此代碼，然后在彈出的對話框中選擇包含要基于其移動的重復單元格的列，請參見屏幕截圖：

4。 然后點擊 OK，在另一個提示框中，請在另一個工作表中選擇一個單元格，您要在其中放置移動的行，請參見屏幕截圖：

5。 然后點擊 OK，則A列中具有重復值的行已移至新工作表，請參見屏幕截圖：

根據重復的行將整個行移動到另一張工作表

如果要移動單元格區域中的重復行，以下VBA代碼可以為您提供幫助：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊”窗口中。

VBA代碼：根據重復的行將整個行移動到另一張工作表：

Sub CutDuplicates()Updateby ExtendofficeDim xRgD As Range, xRgS As RangeDim I As Long, J As Long, K As Long, KK As LongOn Error Resume NextSet xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)If xRgS Is Nothing Then Exit SubSet xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)If xRgD Is Nothing Then Exit SubKK = 0For I = xRgS.Rows.Count To 1 Step -1For J = 1 To I - 1For K = 1 To xRgS.Columns.CountDebug.Print xRgS.Rows(I).Cells(, K).ValueDebug.Print xRgS.Rows(J).Cells(, K).ValueIf xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit ForNextIf K = xRgS.Columns.Count + 1 ThenxRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRowxRgS.Rows(I).EntireRow.DeleteKK = KK + 1End IfNextNextEnd SubCopy

3。 然后按 F5 鍵以運行此代碼，在彈出的對話框中，選擇要移動重復行的數據范圍，請參見屏幕截圖：

4。 點擊 OK 按鈕，然后在另一個提示框中，在新工作表中選擇一個單元格，您要在其中放置已移動的重復行，請參見屏幕截圖：

5。 然后點擊 OK 按鈕，現在，重復的行已被移到您一次指定的另一個工作表中，請參見屏幕截圖：

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel