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

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

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

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

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

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

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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

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

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgS As Range
    Dim xRgD As Range
    Dim I As Long, J As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRgS.Rows.Count
    J = 0
    For I = xRows To 1 Step -1
        If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
            xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
            xRgS(I).EntireRow.Delete
            J = J + 1
        End If
    Next
End Sub

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

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

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

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

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

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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

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

Sub CutDuplicates()
'Updateby Extendoffice
    Dim xRgD As Range, xRgS As Range
    Dim I As Long, J As Long, K As Long, KK As Long
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    KK = 0
    For I = xRgS.Rows.Count To 1 Step -1
        For J = 1 To I - 1
            For K = 1 To xRgS.Columns.Count
                Debug.Print xRgS.Rows(I).Cells(, K).Value
                Debug.Print xRgS.Rows(J).Cells(, K).Value
                If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
            Next
            If K = xRgS.Columns.Count + 1 Then
                xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
                xRgS.Rows(I).EntireRow.Delete
                KK = KK + 1
            End If
        Next
    Next
End Sub

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

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

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