Como puedo eliminar celdas duplicadas en una tabla de excel

hola, Rafa !

... tabla con un monton de registros ... se repiten bastantes ... eliminar todos los repetidos [...]

la siguiente macro elimina ->toda la fila<- de los elementos 'repetidos'
[suponiendo que el rango del listado 'inicia' en 'A1']
si cualquier duda o informacion 'adicional'... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Eliminar_Repetidos()
Dim Repetidos As String, Fila As Long
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = 1 To .Rows.Count
If Application.CountIf(Range("a1:a" & Fila), .Cells(Fila)) > 1 Then
If Repetidos <> "" Then Repetidos = Repetidos & ","
Repetidos = Repetidos & .Cells(Fila).Address
End If
Next
End With
If Repetidos <> "" Then Range(Repetidos).EntireRow.Delete
End Sub

Gracias Hector!

entiendo que el código que me has facilitado lo debo poner despues de
seleccionar todas las celdas en una función, o ¿cómo debo hacerlo?...muchas
gracias

"Héctor Miguel" escribió:

hola, Rafa !

> ... tabla con un monton de registros ... se repiten bastantes ... eliminar todos los repetidos [...]

la siguiente macro elimina ->toda la fila<- de los elementos 'repetidos'
[suponiendo que el rango del listado 'inicia' en 'A1']
si cualquier duda o informacion 'adicional'... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Eliminar_Repetidos()
Dim Repetidos As String, Fila As Long
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = 1 To .Rows.Count
If Application.CountIf(Range("a1:a" & Fila), .Cells(Fila)) > 1 Then
If Repetidos <> "" Then Repetidos = Repetidos & ","
Repetidos = Repetidos & .Cells(Fila).Address
End If
Next
End With
If Repetidos <> "" Then Range(Repetidos).EntireRow.Delete
End Sub

Bien, creo que lo debo poner en una macro de Visual basic...lo que no te he
comentado es que no estan repetidas las filas tal cual "enteras" sólo se
repite una celda, entonces lo que quiero es eliminar todas las filas que
contengan esa celda independientemente de lo que ponga en el resto,

muchas gracias otra vez

"Rafa" escribió:

Gracias Hector!

entiendo que el código que me has facilitado lo debo poner despues de
seleccionar todas las celdas en una función, o ¿cómo debo hacerlo?...muchas
gracias

"Héctor Miguel" escribió:

> hola, Rafa !
>
> > ... tabla con un monton de registros ... se repiten bastantes ... eliminar todos los repetidos [...]
>
> la siguiente macro elimina ->toda la fila<- de los elementos 'repetidos'
> [suponiendo que el rango del listado 'inicia' en 'A1']
> si cualquier duda o informacion 'adicional'... ¿comentas?
> saludos,
> hector.
> en un modulo de codigo 'normal' ==> > Sub Eliminar_Repetidos()
> Dim Repetidos As String, Fila As Long
> With Range(Range("a1"), Range("a65536").End(xlUp))
> For Fila = 1 To .Rows.Count
> If Application.CountIf(Range("a1:a" & Fila), .Cells(Fila)) > 1 Then
> If Repetidos <> "" Then Repetidos = Repetidos & ","
> Repetidos = Repetidos & .Cells(Fila).Address
> End If
> Next
> End With
> If Repetidos <> "" Then Range(Repetidos).EntireRow.Delete
> End Sub
>
>

Hola Rafa:

Si es eso lo que hace este procedimiento!!!
Ejecutalo y comprobalo

Lo único que está en valores absolutos es la columna
O bien se cambia la "a" por otra letra o por una variable

Saludos, fer


"Rafa" escribió en el mensaje
news:

Bien, creo que lo debo poner en una macro de Visual basic...lo que no te

he

comentado es que no estan repetidas las filas tal cual "enteras" sólo se
repite una celda, entonces lo que quiero es eliminar todas las filas que
contengan esa celda independientemente de lo que ponga en el resto,

muchas gracias otra vez

"Rafa" escribió:

> Gracias Hector!
>
> entiendo que el código que me has facilitado lo debo poner despues de
> seleccionar todas las celdas en una función, o ¿cómo debo

hacerlo?...muchas

> gracias
>
> "Héctor Miguel" escribió:
>
> > hola, Rafa !
> >
> > > ... tabla con un monton de registros ... se repiten bastantes ...

eliminar todos los repetidos [...]

> >
> > la siguiente macro elimina ->toda la fila<- de los elementos

'repetidos'

> > [suponiendo que el rango del listado 'inicia' en 'A1']
> > si cualquier duda o informacion 'adicional'... ¿comentas?
> > saludos,
> > hector.
> > en un modulo de codigo 'normal' ==> > > Sub Eliminar_Repetidos()
> > Dim Repetidos As String, Fila As Long
> > With Range(Range("a1"), Range("a65536").End(xlUp))
> > For Fila = 1 To .Rows.Count
> > If Application.CountIf(Range("a1:a" & Fila), .Cells(Fila)) > 1

Then

> > If Repetidos <> "" Then Repetidos = Repetidos & ","
> > Repetidos = Repetidos & .Cells(Fila).Address
> > End If
> > Next
> > End With
> > If Repetidos <> "" Then Range(Repetidos).EntireRow.Delete
> > End Sub
> >
> >

Utiliza la función que trae Menufazt


Luis Medina
MENUFazt - Menu Multifunciones, juegos
http://www11.brinkster.com/luism0/

"Rafa" escribió en el mensaje
news:

Tengo una tabla con un montón de registros de los cuales se repiten

bastantes

y quisiera eliminar todos los repetidos, me imagino que se podrá utilizar
alguna sentencia if, del o algo parecidoagradecería cualquier

tipo

de ayuda.

un saludo

Rafa

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.735 / Virus Database: 489 - Release Date: 06/08/2004