Anónimo
Necesito que me ayuden con un problema en Microsoft Excel
Hola a tod@s! Necesito que me digáis que fórmula puedo utilizar para hacer lo siguiente:
Tengo las columnas A Y B con datos repetidos varias veces...
En la columna A tengo códigos de cliente y en la B el nombre del cliente. Estos códigos se repiten cuantas visitas tengan, es decir a lo mejor el código 101 se repite 15 veces.
He estado utilizando la fórmula contar.si que me suma todos los códigos que hay iguales pero se van restando... Me aparece A1: 101 15, A2: 101 14, A3: 101 13... Y así sucesivamente.
Yo lo que necesito es que solo se quede la fila A1 con el numero 15 y que las demás se me eliminen, ahora mismo lo estoy haciendo a mano.
No se si me he explicado bien.
Muchas gracias de antemano.
Tengo las columnas A Y B con datos repetidos varias veces...
En la columna A tengo códigos de cliente y en la B el nombre del cliente. Estos códigos se repiten cuantas visitas tengan, es decir a lo mejor el código 101 se repite 15 veces.
He estado utilizando la fórmula contar.si que me suma todos los códigos que hay iguales pero se van restando... Me aparece A1: 101 15, A2: 101 14, A3: 101 13... Y así sucesivamente.
Yo lo que necesito es que solo se quede la fila A1 con el numero 15 y que las demás se me eliminen, ahora mismo lo estoy haciendo a mano.
No se si me he explicado bien.
Muchas gracias de antemano.
1 Respuesta
Respuesta de angelcrisnor
1
Tiene pinta de que en CONTAR. SI estás poniendo el rango de búsqueda en modo relativo (si $) en lugar de absoluto (con $).
Si tienes algo parecido a esto:
=CONTAR.SI(A1:A10;"101")
Necesitarás ponerlo así:
=CONTAR.SI($A$1:$A$10;"101")
Si tienes algo parecido a esto:
=CONTAR.SI(A1:A10;"101")
Necesitarás ponerlo así:
=CONTAR.SI($A$1:$A$10;"101")
Muchas gracias Angel por tu respuesta tan rápida.
Ahora, ¿cómo puedo copiar en una columna nueva los datos pero sin las repeticiones? Es decir que si el cliente 101 esta 15 veces y ya me ha puesto que hay 15 celdas con ese código, como puedo coger solo una de ellas...
Muchas gracias.
Un saludo.
María.
Ahora, ¿cómo puedo copiar en una columna nueva los datos pero sin las repeticiones? Es decir que si el cliente 101 esta 15 veces y ya me ha puesto que hay 15 celdas con ese código, como puedo coger solo una de ellas...
Muchas gracias.
Un saludo.
María.
Tienes que usar una macro. Por ejemplo la que te pongo más abajo, que te lo copia en las columnas E:F, pero lo puedes cambiar para que te lo copie donde quiera, cambiando solo la parte en negrita.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaValoresSinRepetir()
HojaOrigen = ActiveSheet.Name
RangoOrigen = "A:B"
FilaOrigen = 1
HojaDestino = HojaOrigen
RangoDestino = "E:F"
Sheets(HojaDestino).Select
Range(RangoDestino).Value = ""
Sheets(HojaOrigen).Select
Valor = ""
FilaDestino = 1
Do While Range(Mid(RangoOrigen, 1, 1) + Trim(Str(FilaOrigen))).Value <> ""
ValorOrigen = Range(Mid(RangoOrigen, 1, 1) + Trim(Str(FilaOrigen))).Value
ValorOrigen2 = Range(Mid(RangoOrigen, 3, 1) + Trim(Str(FilaOrigen))).Value
FilaAuxiliar = 1
encontrado = False
Do While Not encontrado And FilaAuxiliar < FilaDestino
ValorAuxiliar = Range(Mid(RangoDestino, 1, 1) + Trim(Str(FilaAuxiliar))).Value
If ValorAuxiliar = ValorOrigen Then
encontrado = True
End If
FilaAuxiliar = FilaAuxiliar + 1
Loop
If Not encontrado Then
CeldaDestino = Mid(RangoDestino, 1, 1) + Trim(Str(FilaDestino))
CeldaDestino2 = Mid(RangoDestino, 3, 1) + Trim(Str(FilaDestino))
'
Sheets(HojaDestino).Select
Range(CeldaDestino) = ValorOrigen
Range(CeldaDestino2) = ValorOrigen2
FilaDestino = FilaDestino + 1
End If
FilaOrigen = FilaOrigen + 1
Loop
End Sub
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaValoresSinRepetir()
HojaOrigen = ActiveSheet.Name
RangoOrigen = "A:B"
FilaOrigen = 1
HojaDestino = HojaOrigen
RangoDestino = "E:F"
Sheets(HojaDestino).Select
Range(RangoDestino).Value = ""
Sheets(HojaOrigen).Select
Valor = ""
FilaDestino = 1
Do While Range(Mid(RangoOrigen, 1, 1) + Trim(Str(FilaOrigen))).Value <> ""
ValorOrigen = Range(Mid(RangoOrigen, 1, 1) + Trim(Str(FilaOrigen))).Value
ValorOrigen2 = Range(Mid(RangoOrigen, 3, 1) + Trim(Str(FilaOrigen))).Value
FilaAuxiliar = 1
encontrado = False
Do While Not encontrado And FilaAuxiliar < FilaDestino
ValorAuxiliar = Range(Mid(RangoDestino, 1, 1) + Trim(Str(FilaAuxiliar))).Value
If ValorAuxiliar = ValorOrigen Then
encontrado = True
End If
FilaAuxiliar = FilaAuxiliar + 1
Loop
If Not encontrado Then
CeldaDestino = Mid(RangoDestino, 1, 1) + Trim(Str(FilaDestino))
CeldaDestino2 = Mid(RangoDestino, 3, 1) + Trim(Str(FilaDestino))
'
Sheets(HojaDestino).Select
Range(CeldaDestino) = ValorOrigen
Range(CeldaDestino2) = ValorOrigen2
FilaDestino = FilaDestino + 1
End If
FilaOrigen = FilaOrigen + 1
Loop
End Sub