Función personalizada Concatenar en Excel

Twittear este post

 Compartir en Facebook

La función Concatenar de Excel se me hace realmente lenta al momento de tener que unir varias celdas, por lo que me vi a la tarea de realizar una función personalizada en la que sólo elijo el rango que quiero unir y listo!.

He aquí el código:

Function EXCELeINFOCONCATENAR(rango As Range) As String
Dim t As String
Application.Volatile
For Each celda In rango
    t = t & " " & celda.Value
Next celda
EXCELeINFOCONCATENAR = Trim(t)
End Function

You may also like...