Sacar una lista no duplicada

08/05/2006 - 23:24 por HardSofT.NET | Informe spam
Hola de nuevo como puedo sacar una lista de cuales son los codigos que se
repiten osea por ej
C01
C01
C01
C02
C02
L33
L31

que me salga en una columna asi de paso las cantidades de cada uno
C01 3
C02 2
L33 1
L31 1
Saludos


WCR

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
09/05/2006 - 07:01 | Informe spam
hola, 'anonimo/a' !

[una opcion]: utiliza los filtros avanzados... filtrando los unicos en otro rango de la misma hoja
[posteriormente]: usa la funcion contar.si basandote en el listado devuelto 'versus' el listado original ;)

si cualquier duda [o iformacion adicional]... comentas ?
saludos,
hector.

... como puedo sacar una lista de cuales son los codigos que se repiten osea por ej
C01
C01
C01
C02
C02
L33
L31
que me salga en una columna asi de paso las cantidades de cada uno
C01 3
C02 2
L33 1
L31 1
Respuesta Responder a este mensaje
#2 J.P.
09/05/2006 - 16:12 | Informe spam
Tal vez esta macro te sirva, tus codigos deberan iniciar en la fila 1 y
columna uno, y te devolvera tus sumas en la colomna 2 y 3, aunque tu la
puedes cambiar en el codigo de la misma.
copiala en un modulo y ve a Herramientas/macros/macros, te saldra una
macro con nombre suma ejecutala y listo.
Espero verte ayudado de todas maneras cuentame como te fue.

Sub sumar()
Dim cod(200) As String
Dim val(200) As Integer
'Me ubico en la celda 1,1
'es donde empiezan los datos
Cells(1, 1).Select
fil = ActiveCell.Row
col = ActiveCell.Column
While Cells(fil, col) <> ""
c = fil
cod(s) = Cells(fil, col)
While Cells(fil, col) = Cells(c, col)
Count = Count + 1
c = c + 1
Wend
fil = c
val(s) = Count
s = s + 1
Count = 0
Wend
For i = o To s - 1
Cells(i + 1, 2) = cod(i)
Cells(i + 1, 3) = val(i)
Next
End Sub
Respuesta Responder a este mensaje
#3 J.P.
09/05/2006 - 16:13 | Informe spam
A un detalle que se me escapo es que lo primero que debes hacer es
ordenar tus codigos.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida