如何在 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. 點擊 確定，在另一個提示框中，請選擇另一個工作表中您要放置移動列的單元格，請參見截圖：

5. 然後點擊 確定，A 列中具有重複值的列已經被移至新工作表，請參見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

根據重複的列將整行移至另一個工作表

如果您想從一系列單元格中移動重複的列，以下 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. 點擊 確定 按鈕，然後在另一個提示框中，選擇新工作表中您要放置移動列的單元格，請參見截圖：

5. 然後點擊 確定 按鈕，現在重複的列已經一次性被移至您指定的另一個工作表，請參見截圖：