¿Cómo mover filas duplicadas a otra hoja en Excel?

Si tienes un rango de datos que contiene algunos valores duplicados en una columna específica, y ahora quieres mover las filas completas a otra hoja basándote en las celdas duplicadas. ¿Cómo podrías manejar esta tarea en Excel?

Mover filas completas a otra hoja basándose en celdas duplicadas en una columna

Mover filas completas a otra hoja basándose en filas duplicadas

Mover filas completas a otra hoja basándose en celdas duplicadas en una columna

Si hay valores duplicados en una columna, entonces mueve las filas completas a otra hoja; el siguiente código VBA puede ayudarte:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.

Código VBA: Mover filas completas a otra hoja basándose en celdas duplicadas en una columna:

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. Luego presiona la tecla F5 para ejecutar este código, y en el cuadro de diálogo emergente, selecciona la columna que contiene las celdas duplicadas que deseas mover, ver captura de pantalla:

4. Luego haz clic en Aceptar, en otro cuadro de diálogo, selecciona una celda en otra hoja donde deseas colocar las filas movidas, ver captura de pantalla:

5. Y luego haz clic en Aceptar, las filas que tienen valores duplicados en la columna A se han movido a una nueva hoja, ver captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Mover filas completas a otra hoja basándose en filas duplicadas

Si deseas mover las filas duplicadas desde un rango de celdas, el siguiente código VBA puede ayudarte:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.

Código VBA: Mover filas completas a otra hoja basándose en filas duplicadas:

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. Luego presiona la tecla F5 para ejecutar este código, en el cuadro de diálogo emergente, selecciona el rango de datos que deseas mover con las filas duplicadas, ver captura de pantalla:

4. Haz clic en el botón Aceptar, y luego en otro cuadro de diálogo, selecciona una celda en una nueva hoja donde deseas colocar las filas duplicadas movidas, ver captura de pantalla:

5. Luego haz clic en el botón Aceptar, y ahora, las filas duplicadas se han movido a otra hoja que especificaste de inmediato, ver captura de pantalla: