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...

2 Responses

  1. ana mendoza says:

    ESTE CODIGO SE PUEDE COPIAR DIRECTAMENTE EN UNA MACRO PARA EXCEL 2010?

    • sergioacamposh says:

      Este código aplica para cualquier versión de excel. Pero es forzoso que esté dentro de un módulo vba.

Leave a Reply

Your email address will not be published. Required fields are marked *