RE:Macros eliminar numeros repetidos
Muy buenas,
1.- Tal y como está diseñada la macro, elimina la fila, o sea, que se pierde toda la información de la misma. No obstante podría hacerse otra forma, lógicamente, si alteras una columna y dejas las demás como estaban, el contenido de las filas perdería correspondencia, en el caso de que la tuvieran.
Si no quisieras perder esa información habría que hacer una macro distinta.
En la macro hay una línea que dice:
Set c = Worksheets(1).Range("a1:a" & i - 1).Find(Cells(i, 1), LookIn:=xlValues)
Esto sirve para hacer los cambios en primera hoja. Lo puedes cambiar y poner cualquier otro número de hoja Worksheets(2) o bien su nombre Worksheets(“Hoja3”), o simplemente hacerlo en la hoja activa:
Set c =Range("a1:a" & i - 1).Find(Cells(i, 1), LookIn:=xlValues)
2.- No sé muy bien a que te refieres con “Como ordenamos la tabla cuando anulamos lo repetido en una macro?”, después de ejecutar una macro, se puede ordenar como se quiera. Tal y como te lo había puesto yo inicialmente (que comentaste que no lo necesitabas), ordenaba únicamente la columna A. Claro que esto es justamente un contrasentido con lo que decía antes de no perder correspondencia en la fila.
En fin que dime lo que quieres e intentaré resolvértelo.
Un saludo. Juanjo.