¿Cómo mover filas duplicadas a otra hoja en Excel?
Si tiene una lista de rango de datos que contiene algunos valores duplicados en una columna específica, ahora desea mover todas las filas a otra hoja en función de las celdas duplicadas. ¿Cómo podría hacer frente a esta tarea en Excel?
Mover filas enteras a otra hoja según las celdas duplicadas en una columna
Mover filas enteras a otra hoja según filas duplicadas
Mover filas enteras a otra hoja según las celdas duplicadas en una columna
Si hay valores duplicados en una columna, mueva todas las filas a otra hoja, el siguiente código VBA puede hacerle un favor:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana Módulo.
Código de VBA: mueva filas enteras a otra hoja según las 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. Entonces presione F5 para ejecutar este código, y en el cuadro de diálogo emergente, seleccione la columna que contiene las celdas duplicadas en las que desea moverse, vea la captura de pantalla:
4. Luego haga clic OK, en otro cuadro de aviso, seleccione una celda en otra hoja donde desea colocar las filas movidas, vea la captura de pantalla:
5. Y luego haz clic OK, las filas que tienen valores duplicados en la columna A se han movido a una nueva hoja, vea la captura de pantalla:
Mover filas enteras a otra hoja según filas duplicadas
Si desea mover las filas duplicadas de un rango de celdas, el siguiente código VBA puede ayudarlo:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana Módulo.
Código de VBA: mueva filas enteras a otra hoja en función de 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. Entonces presione F5 para ejecutar este código, en el cuadro de diálogo emergente, seleccione el rango de datos que desea mover las filas duplicadas, vea la captura de pantalla:
4. Hacer clic OK , y luego en otro cuadro de aviso, seleccione una celda en una nueva hoja donde desea colocar las filas suplicantes movidas, vea la captura de pantalla:
5. Luego haga clic OK , y ahora, las filas duplicadas se han movido a otra hoja que especificó a la vez, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
