excluir duplicados o triplicados

23/04/2007 - 20:48 por Joan | Informe spam
en una lista de palabras (en concreto el personal dic) que he editado en
word, ¿cómo puedo suprimir los duplicados? Gracias K por la ayuda

__________________
Salutacions cordials
Joan

Preguntas similare

Leer las respuestas

#6 Joan
25/04/2007 - 01:49 | Informe spam
ké passada, Mónica!!! Gracias K. Veré si me sale y te cuento

__________________
Salutacions cordials
Joan
"Tux" escribió en el mensaje
news:
Joan escribió:
me parece buena idea, pero no tengo idea de hacer la macro!!!




Hola Joan :-)

No tranquilo yo te explico has de poner por ejemplo el siguiente codigo :

Abres el archivo de excel, luego le das a ALt+F11 y se te abrira Visual
basic y luego ves a Menu Insertar > y click en Modulo veras que se te
abre una ventana en Blanco a la derecha para que pongas ahi el codigo
siguiente:[Haz copy paste ]


'--
Sub EliminarRepes()

Dim x As Long

Dim y As String

Columns("A:A").Sort Key1:=Range("A1"), _
Order1:=xlAscending
Range("A1").Select

x = 0

y = ActiveCell.Value

ActiveCell.Offset(1, 0).Select

While ActiveCell.Value > ""

If ActiveCell.Value = y Then

Selection.Delete Shift:=xlUp

x = x + 1

Else

y = ActiveCell.Value

ActiveCell.Offset(1, 0).Select

End If

Wend

End Sub
'-

Una vez lo hayas pegado ahi, coges y le das cerrar, y volveras a la
interfaz de Excel, Bien ahora coges y realizas el pegado del diccionario
personal en la [columna A ] ok? y una vez lo tengas pegado coges y le das
a las teclas Alt+F8 [ o Herramientas > Macro > macros y veras que tienes :

EliminarRepes

Pues click ahi en [ Eliminar Repes ] para seleccionarla y click en Boton
Ejecutar [o bien dos clicks en Elimar Repes y ya la tendras ejecutada]

Con este codigo cada vez que tengas datos en la columna A, te la ordenara
y te limpiara todos los repetidos dejandote solo Los Unicos ok?

Tu prueba y si tienes cualquier duda o cosilla ya sabes nos comentas ok?
;-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com



Anotacion: Si por los foros veis Spam masivo sobre temas que nada tienen
que ver con el foro en cuestion,
Deciros que es un << Troll/s >> que unas veces usurpan el nombre e
identidad de gente profesional en la materia,
y otras veces usurpan el nombre e identidad de aquel o aquellos que
contestan a su Spam, su verdadero nombre es:

Pablito "Alias el Cuervo" y Compañia [payasos de circo ]

Lo mejor que podeis hacer, es o bien ignorarlos como si no existieran o
hacer seguimiento de las NEws de microsoft,

a traves de por ejemplo entre otros:

Outloock Express o Mesnews [con opcion a suprimirlos ]

Y Si utilizais el Thunderbird podeis utilizardo como Separador de hilos y
queda muy mono :-))))






Respuesta Responder a este mensaje
#7 Joan
26/04/2007 - 08:34 | Informe spam
funcionó más o menos, Mónica; sospecho que pese a la identidad aparente,
algunas palabras no eran tan idénticas al provenir de diversos diccionarios.
Gracias 2K

__________________
Salutacions cordials
Joan
"Tux" escribió en el mensaje
news:
Joan escribió:
me parece buena idea, pero no tengo idea de hacer la macro!!!




Hola Joan :-)

No tranquilo yo te explico has de poner por ejemplo el siguiente codigo :

Abres el archivo de excel, luego le das a ALt+F11 y se te abrira Visual
basic y luego ves a Menu Insertar > y click en Modulo veras que se te
abre una ventana en Blanco a la derecha para que pongas ahi el codigo
siguiente:[Haz copy paste ]


'--
Sub EliminarRepes()

Dim x As Long

Dim y As String

Columns("A:A").Sort Key1:=Range("A1"), _
Order1:=xlAscending
Range("A1").Select

x = 0

y = ActiveCell.Value

ActiveCell.Offset(1, 0).Select

While ActiveCell.Value > ""

If ActiveCell.Value = y Then

Selection.Delete Shift:=xlUp

x = x + 1

Else

y = ActiveCell.Value

ActiveCell.Offset(1, 0).Select

End If

Wend

End Sub
'-

Una vez lo hayas pegado ahi, coges y le das cerrar, y volveras a la
interfaz de Excel, Bien ahora coges y realizas el pegado del diccionario
personal en la [columna A ] ok? y una vez lo tengas pegado coges y le das
a las teclas Alt+F8 [ o Herramientas > Macro > macros y veras que tienes :

EliminarRepes

Pues click ahi en [ Eliminar Repes ] para seleccionarla y click en Boton
Ejecutar [o bien dos clicks en Elimar Repes y ya la tendras ejecutada]

Con este codigo cada vez que tengas datos en la columna A, te la ordenara
y te limpiara todos los repetidos dejandote solo Los Unicos ok?

Tu prueba y si tienes cualquier duda o cosilla ya sabes nos comentas ok?
;-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com



Anotacion: Si por los foros veis Spam masivo sobre temas que nada tienen
que ver con el foro en cuestion,
Deciros que es un << Troll/s >> que unas veces usurpan el nombre e
identidad de gente profesional en la materia,
y otras veces usurpan el nombre e identidad de aquel o aquellos que
contestan a su Spam, su verdadero nombre es:

Pablito "Alias el Cuervo" y Compañia [payasos de circo ]

Lo mejor que podeis hacer, es o bien ignorarlos como si no existieran o
hacer seguimiento de las NEws de microsoft,

a traves de por ejemplo entre otros:

Outloock Express o Mesnews [con opcion a suprimirlos ]

Y Si utilizais el Thunderbird podeis utilizardo como Separador de hilos y
queda muy mono :-))))






Respuesta Responder a este mensaje
#8 Tux
26/04/2007 - 23:24 | Informe spam
Joan escribió:
funcionó más o menos, Mónica; sospecho que pese a la identidad aparente,
algunas palabras no eran tan idénticas al provenir de diversos diccionarios.
Gracias 2K




Ok Joan ;-) Me alegro y ya sabes cualquier cosilla no dudes en comentar :-)

Saludos :-)!!!
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com



Anotacion: Si por los foros veis Spam masivo sobre temas que nada tienen
que ver con el foro en cuestion,
Deciros que es un << Troll/s >> que unas veces usurpan el nombre e
identidad de gente profesional en la materia,
y otras veces usurpan el nombre e identidad de aquel o aquellos que
contestan a su Spam, su verdadero nombre es:

Pablito "Alias el Cuervo" y Compañia [payasos de circo ]

Lo mejor que podeis hacer, es o bien ignorarlos como si no existieran o
hacer seguimiento de las NEws de microsoft,

a traves de por ejemplo entre otros:

Outloock Express o Mesnews [con opcion a suprimirlos ]

Y Si utilizais el Thunderbird podeis utilizardo como Separador de hilos
y queda muy mono :-))))
Respuesta Responder a este mensaje
#9 Joan
28/04/2007 - 01:37 | Informe spam
:-)

__________________
Salutacions cordials
Joan
"Tux" escribió en el mensaje
news:
Joan escribió:
funcionó más o menos, Mónica; sospecho que pese a la identidad aparente,
algunas palabras no eran tan idénticas al provenir de diversos
diccionarios. Gracias 2K




Ok Joan ;-) Me alegro y ya sabes cualquier cosilla no dudes en comentar
:-)

Saludos :-)!!!
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com



Anotacion: Si por los foros veis Spam masivo sobre temas que nada tienen
que ver con el foro en cuestion,
Deciros que es un << Troll/s >> que unas veces usurpan el nombre e
identidad de gente profesional en la materia,
y otras veces usurpan el nombre e identidad de aquel o aquellos que
contestan a su Spam, su verdadero nombre es:

Pablito "Alias el Cuervo" y Compañia [payasos de circo ]

Lo mejor que podeis hacer, es o bien ignorarlos como si no existieran o
hacer seguimiento de las NEws de microsoft,

a traves de por ejemplo entre otros:

Outloock Express o Mesnews [con opcion a suprimirlos ]

Y Si utilizais el Thunderbird podeis utilizardo como Separador de hilos y
queda muy mono :-))))






email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida