Macro eliminar las celdas duplicadas

Tengo una pequeña base de datos "A7:C20". Necesito una macro que me elimine las celdas que se repiten en la comuna "C" (me deje la primera fila y me elimine las demás filas que se repiten)

1 Respuesta

Respuesta
1

Te mando mi solución. Ejecuta esta macro y todo arreglado:

(He supuesto que tu base de datos tiene encabezados en la fila 7)

Sub prueba()
'por luismondelo
Range("a7:c20").Sort key1:=Range("c7"), order1:=xlAscending, Header:=xlYes, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("c7").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
fila = ActiveCell.Row
ubica = ActiveCell.Address
contarsi = Application.WorksheetFunction.CountIf(Range("c7:c20"), valor)
If contarsi > 1 Then
Range(Cells(fila + 1, 1), Cells(fila + contarsi - 1, 3)).Delete
Range(ubica).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

no olvides finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Numero con más repeticiones dentro de un rango

En la columna "Numero" tengo los números del 1 al 20 y en la columna "Repetido" tengo las veces que se repitió cada numero, Ejemplo el numero 10 se repitió 6 veces, el numero 11, se repitió 9 veces etc. Necesito una función que me de por resultado el...
1 respuesta

Buscar y copiar filas con una fecha determinada en una celda

Necesito saber como hacer la fórmula para que me localice la fecha que tengo en una determinada celda y no en este caso que así solo me busca la fecha del día de hoy 'Encontrar la última fila con datos en la hoja de origen lastRow =...
2 respuestas

Suma entre rango de fechas para un cliente

Nola, necesito hacer una suma entre un rango de fechas para un cliente definido. Elijo un rango de fechas y luego elijo un cliente de la celda de clientes y me da por resultado la suma de lo facturado de ese cliente dentro del rango de fechas...
3 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas

Seleccionar datos mediante un Combobox en formulario

Tengo un listado de números en una columna y me gustaría seleccionar cada número mediante un Combobox de un formulario, su parte inicial sería la siguiente prívate sub combobox_change() Range (“ex”)
2 respuestas

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas

¿Cómo se quita mensaje de OLE?

A menudo excel se bloquea en todos los libros abiertos, luego al desbloquearse unos 3- 5 minutos después aparece el mensaje: "Microsoft Excel esta esperando que otra aplicación complete una acción OLE." ¿Cómo evitar todo esto y que no vuelva a suceder?
1 respuesta

Crear base de datos en excel

Como puedo crear una base de datos con Excel, que puedas introducir nombre, teléfono, tinte y registrar, buscar y eliminar
2 respuestas