如何在 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. 然后单击“ 确定”按钮，现在，重复的行已一次性移动到你指定的另一个工作表中，请参见截图：