CONCATENAR MASIVO EN EXCEL

Function CONCATENAR_MASIVO(Rango As Range, delimitador As String)
Dim i As Integer, Resultado As String
Resultado = ""
For i = 1 To Rango.Count
Resultado = Resultado + Rango(i) & delimitador
Next
CONCATENAR_MASIVO = Trim(Left(Resultado, Len(Resultado) - 2)) 'quito el último delimitador
CONCATENAR_MASIVO = CONCATENAR_MASIVO & "."
End Function

[mart.isabellchaves]

Hola me podrías colaborar como puedo aplicar esta formula con números, ya intente cambiando el formato de la celda a texto pero no funciona.

[lexluis]

excelente exactamente lo que necesitaba gracias

[ddelvil]

Felicitaciones por el excelente trabajo, me encantó la función, yo ahora tuerza mas el rizo, como hacerlo a la inversa, supongamos que hemos comprimido esa info por x motivos, pero ahora necesito que vuelva a estar como antes, palabras en columnas. Un saludo

[juanvasconcel]

Genio! Crack del excel! tiburon! Muy buena solucion! Saludos.

[isaiverasteguimtz]

AMIGO, ERES UN CRACK. TENIA 2 DIAS BUSCANDO UNA FORMA. GRACIAS

[anderssontenorio]

Muchas me acaba de ahorrar hojas de trabajo

[komatsumaryjdadul]

Dios te bendiga!!! me ayudaste muchisimo!!!

[mars]

Hola!, me resulto la formula que enseñaste, te lo agradezco enormemente.

[ricardosuriano]

Excelente la explicacion y la funcion mejorada para que tome los números.

[erickestuardog]

buenísimo, gracias ... me ayudará demasiado

[ricardoalvites]

Exelente video! de mucha ayuda, felicitaciones por el contenido.

[audryortega]

Muy buena explicación. Me ayudo mucho.

[javierignaciorodriguezbarr]

Hola, intenté con números de telefónos con 400 celdas y menos, y me tira VALOR. Con palabras si me funcionó. Gracias

[juanordinola]

Excelente me sirvió un montón, ahorre mucho tiempo ordenando datos

[rangob]

Inicialmente no tenía pensado concatenar números pero una solución rápida a ese caso sería cambiar el tipo de datos de todas las celdas, en este caso la columna A a formato de texto en vez de número!! espero les funcione!

[turnertaker]

Soy nuevo usando macros.... me funcionó bien, cerre y cambie el nombre al archivo y las hojas a las que corresponda, abri el documento y me manda el error #NAME?
Sabes como solucionarlo?
O tengo que hacer una nueva hoja?
Saludos y muchas gracias por la info, me ha servido mucho

[DiegoJuanLinaresSalas]

PARA FORMA HORIZONTAL NO ME SALE GENERA ERROR
ES LA MISMA FORMULA?

[uptitanmx]

habrá alguna manera de concatenar renglones cumpliendo los siguientes requisitos, uno que tengan datos y dos que cuando encuentre un renglón en blanco "reinicie" y comience a concatenar a partir del primer renglón que encuentre con datos en la parte de abajo. saludos.

[rubenselayaperalta]

trate de mejorar el código, espero que sirva:

Function CONCATENAR_MASIVO(Rango As Range, delimitador As String)
Dim I As Long
Dim met As Boolean
Dim n As Long
Dim Resultado As String
n = Rango.Count
Resultado = ""
For I = 1 To n
If Rango(I) <> "" Then
Resultado = Resultado + VBA.CStr(Rango(I)) & delimitador
met = True
End If
Next
If met = False Then
CONCATENAR_MASIVO = ""
Else
CONCATENAR_MASIVO = Trim(Left(Resultado, Len(Resultado) - 2)) 'quito el último delimitador
End If
End Function

[NohemiMartineznohestmm]

Hola sirve para concatenar de forma vertical y horizontal?