Ideas para concatenar celdas con VBA o Macros

Usualmente se concatena la data con pocas celdas.

Entonces que pasaria si deseo concatenar muchas mas celdas??

Para ello se creó la Función CONCATENARCELDAS HECHOS EN VBA:

Con esta función se logrará concatenar a grandes rangos de data de manera mas rápida.

A continuación se muestra el VBA:
Function ConcatenarCeldas(rango As Range)
For Each celda In rango.Cells
If celda.Value " " Then
resultado = resultado & "; " & celda.Value
End If
Next
resultado = Right(resultado, Len(resultado) - 2)
ConcatenarCeldas = resultado
End Function

(Para mayor visualización de la imagen, hacer click en la misma)

EL SIGUIENTE EJEMPLO ESTA AL FINAL DE LA HOJA CON LINK DE DESCARGA DEL EXCEL

__________________________________
Concatenar celdas con VBA o Macros