Eliminar filas repetidas en excel (no dejar ninguna)

Hola, tengo un archivo excel con mas de 45.000 filas, de números de cedulas de clientes, y algunos datos están repetidos, necesito una macro que me elimine todas las filas que se repiten, pero que no solo me elimine las filas filas repetidas y me deje el dato original, sino que elimine todas, es decir si hay 2 registros con el mismo dato, que se eliminen las 2 filas.

Gracias por la colaboración.

1 respuesta

Respuesta
1

Te dejo el código que te puede ayudar en tu tarea, para correrla debes seleccionar el rango donde se encuentran los datos que deseas procesar, en tu caso, los números de cédula. Quedo pendiente de tu éxito. Saludos

Sub DejarUnicos()
''Creada por FSerrano en 120306
''Para Lorena706 en TodoExpertos.com
''Elimina todos los registros duplicados en la seleccion dada
ActiveSheet.Range(Selection.Cells(1, 1).Address).EntireColumn.Insert
ActiveSheet.Range(Selection.Cells(1, 1).Address).FormulaLocal = "=contar.si(" & Range(Selection.Offset(0, 1).Address).Address & "," & Range(Selection.Cells(1, 1).Offset(0, 1).Address(False, False)).Address(False, False) & ")"
Selection.Cells(1, 1).AutoFill Destination:=Range(Selection.Address)
Selection.Cells(1, 1).EntireRow.Insert
Range(Selection.Address & ":" & Selection.Offset(1, 0).Address).Select
ActiveSheet.Range(Selection.Address).AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>1"
Selection.SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveCell.EntireColumn.Delete
End Sub

NO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA

Muchas gracias por tomarte el tiempo de atender mi solicitud, estuve probando la macro, pero me genera error en la segunda linea:

ActiveSheet.Range(Selection.Cells(1, 1).Address).FormulaLocal = "=contar.si(" & Range(Selection.Offset(0, 1).Address).Address & "," & Range(Selection.Cells(1, 1).Offset(0, 1).Address(False, False)).Address(False, False) & ")"

La he copiado y pegado directamente pero no me funciona, si no es mucha molestia me podrías revisar que puede estar mal?

Gracias nuevamente y disculpa las molestias:

Prueba a cambiar, en la línea que te esta dando problema, esta parte:

...FormulaLocal= "=contar.si"...

por esta otra

...Formula = "=COUNTIF"...

Debería funcionar (en versiones excel 2007 y posteriores).

Tienes una pregunta activa, por favor revisa si mi respuesta te es útil, en caso contrario amplia tu caso.

HOLA MUCHAS GRACIAS POR TU TIEMPO, DISCULPA POR NO HABERTE RESPONDIDO OPORTUNAMENTE, REALMENTE LA SOLUCIÓN QUE ME SUGERISTE NO TUVO ÉXITO, ENCONTRÉ ESTA MACRO QUE ME SOLUCIONÓ EL PROBLEMA:

Sub
test()
Dim
selección As String
Dim c As
String
Dim rng
As Range
With
Application
.ScreenUpdating
= False
.EnableEvents
= False
.Calculation
= xlCalculationManual
With
ActiveSheet
c =
"A"
Set rng
= .Range(.Cells(2, c), _
.Cells(.Rows.Count,
c).End(xlUp))
For Each
celda In rng
If
Application.CountIf(rng, celda) > 1 _
Or celda
= "" Then
If
selección <> "" Then _
selección = selección & ","
selección = selección & celda.Address
End If
Next
celda
If selección
<> "" Then _
.Range(selección).EntireRow.Delete
End With
.ScreenUpdating
= True
.EnableEvents
= True
.Calculation
= xlCalculationAutomatic
End With
End Sub

GRACIAS POR TU ATENCIÓN.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro solo en una hoja del libro

Tengo un excel con una macro que consiste en darle a un boton, y se envía el texto de esa página en un mail (a unos destinatarios y un asunto concreto, que tu previamente has configurado en la macro). El problema es que yo copio esa hoja, con ese...
1 respuesta

Macro que elimina las celdas que le preceden

Tengo poca experiencia en las macros por lo cual necesito la ayuda de algún experto con mi problema, tengo una macro que me elimina los datos repetidos de una fila pero quiero que me elimine también los datos que tiene en las siguientes tres...
1 respuesta

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Datos Combobox repetidos

Tengo un formulario con 2 combobox... En el primero hace un autofiltro a una base en excel y carga los valores de la columna d en el combobox2... El problema es que me carga los valores que están duplicados... Que puedo hacer para evitar que cargue...
1 respuesta

Macro que busque un valor y copie la fila entera

Espero me puedan ayudar, Necesito hacer una macro que me busque un valor en la hoja 1 y copie toda la fila a la hoja 2 sin sobreescribir el ultimo registro, y una vez copiada la fila, la elimine de la hoja 1
1 respuesta

Mostrar mail antes de enviar

Disculpa por la molestia; quisiera saber... Tengo una MACRO para enviar un mail, ya adaptada a mis necesidades, funciona de maravilla, pero quisiera que en lugar de enviar el mensaje con la funcion .SEND me la muestre, con .DISPLAY; para que me de...
3 respuestas

¿Error 400 en visual basic de excel? ¿Cómo lo corrijo?

Tengo esta macro para eliminar filas vacias: Sub EliminarFilasVacias() Dim Cadena As String, Fila As Long With Worksheets("Hoja2") 'Nombre de la hoja For Fila = 1 To .UsedRange.Rows.Count If WorksheetFunction.CountA(.Rows(Fila)) = 0 Then Cadena =...
2 respuestas

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta