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

Author Xiaoyang Last modified 2025-08-23

如果您有一個資料區域列表，其中某特定列包含一些重複值，現在您想根據重複的單元格將整行移到另一個工作表。在 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 鍵運行程式碼，在彈出的對話框中，選擇您要根據其移動的包含重複單元格的列，請參見截圖：

select the column which contains the duplicate cells to move based on

4. 點擊確定，在另一個提示框中，請選擇另一個工作表中您要放置移動列的單元格，請參見截圖：

elect a cell in another sheet to put the moved rows

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

the rows which have duplicate values in column A are moved into a new sheet

使用 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 鍵運行程式碼，在彈出的對話框中，選擇您要移動重複列的資料區域，請參見截圖：

select the select the data range to move the duplicate rows

4. 點擊確定按鈕，然後在另一個提示框中，選擇新工作表中您要放置移動列的單元格，請參見截圖：

select a cell in a new sheet to put the moved supplicate rows

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

the duplicate rows are moved into another sheet

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多