Concatenar celdas indeterminadas
Buenas tardes,
Estoy intentando concatenar celdas mi problema es que tengo que concatenar según si la columna anterior tiene el mismo numero.
Me explico
Tengo
2030 texto
2030 que quiero concatenar
2031 texto 2031
2031 que también quiero concatenar 2031
2031 también concatenar a 2031
La cosa es que no tengo manera de saber si por ejemplo hay 5 números 2031 o 15 números 2030
habría alguna manera de hacerlo automáticamente, porque hacerlo manual es un pelín cansado, tengo unas 50.000 filas y necesito concatenar para que quede en una sola con el numero.
Muchas gracias
Espero vuestra respuesta.
Estoy intentando concatenar celdas mi problema es que tengo que concatenar según si la columna anterior tiene el mismo numero.
Me explico
Tengo
2030 texto
2030 que quiero concatenar
2031 texto 2031
2031 que también quiero concatenar 2031
2031 también concatenar a 2031
La cosa es que no tengo manera de saber si por ejemplo hay 5 números 2031 o 15 números 2030
habría alguna manera de hacerlo automáticamente, porque hacerlo manual es un pelín cansado, tengo unas 50.000 filas y necesito concatenar para que quede en una sola con el numero.
Muchas gracias
Espero vuestra respuesta.
1 respuesta
Respuesta de caranbis
1
Puedes hacer una fácil, con una fórmula que trae excel, pero no es muy exacta.
Aa bb concat
30 a
30 b
30 c
30 d abcd
31 e
31 f ef
32 g
32 h
32 i ghi
33 j
33 k
33 l
33 m
33 n
33 o jklmno
¿Así debe quedar?
Aa bb concat
30 a
30 b
30 c
30 d abcd
31 e
31 f ef
32 g
32 h
32 i ghi
33 j
33 k
33 l
33 m
33 n
33 o jklmno
¿Así debe quedar?
Pues si debería quedar así como indicas.
¿Si me pudieras ayudar?
¿Si me pudieras ayudar?
'Para el ejemplo que te puse, esta sería la macro:
Sub concatenar()
Application.ScreenUpdating = False
'
Dim Ultimo As String
Dim Concatenado As String
'
Range("A2").Select
'
Ultimo = ActiveCell
Concatenado = ""
'
While ActiveCell <> ""
'
If Ultimo = ActiveCell Then
Concatenado = Concatenado & ActiveCell.Offset(0, 1)
Else
ActiveCell.Offset(-1, 2) = Concatenado
Concatenado = ActiveCell.Offset(0, 1)
Ultimo = ActiveCell
End If
'
ActiveCell.Offset(1, 0).Select
'
Wend
'
ActiveCell.Offset(-1, 2) = Concatenado
'
End Sub
Sub concatenar()
Application.ScreenUpdating = False
'
Dim Ultimo As String
Dim Concatenado As String
'
Range("A2").Select
'
Ultimo = ActiveCell
Concatenado = ""
'
While ActiveCell <> ""
'
If Ultimo = ActiveCell Then
Concatenado = Concatenado & ActiveCell.Offset(0, 1)
Else
ActiveCell.Offset(-1, 2) = Concatenado
Concatenado = ActiveCell.Offset(0, 1)
Ultimo = ActiveCell
End If
'
ActiveCell.Offset(1, 0).Select
'
Wend
'
ActiveCell.Offset(-1, 2) = Concatenado
'
End Sub
