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
Publicaciones relacionadas:
Concatenar el contenido de un rango de celdas (mail recordatorio)
Rellenar celdas con cero en Macros
Aplicar Trim a un rango de celdas con Macros
¿Cómo encontrar celdas combinadas?
Coincidir los colores de una serie con los de las celdas de datos
Uso de With para dar formato a celdas con texto, numero y formulas
Algunos trucos para optimizar macros en Excel
Marcar las Celdas Duplicadas
23/06/2017 at 5:42 pm
Hola buenas tardes, he realizado esta Practica, pero a la hora de querer llamar la Funcion en EXCEL no la manda llamar, sigue apareciendo solo la funcion CONCATENAR nativa de Excel, en un principio si me aparecían ambas, pero ahora no la manda llamar, que puede ser lo que no permita llamar la funcion??, de favor.
Por anticipado muchas gracias por su gran ayuda.
02/08/2017 at 1:30 am
Buenas tardes, verifique si guardo el código en un modulo y que el libro donde este el modulo este abierto a la hora de emplear la funcion
02/08/2017 at 1:42 am
Buenas tardes, verifique si guardo el código en un modulo y que el libro donde este el modulo este abierto a la hora de emplear la funcion
Igualmente el código correcto de la función es como aparece en la imagen:
Lo transcribo:
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
** Por ultimo al buscar en funciones debera aparecer al lado de la nativa Concatenar aparece ConcatenarCeldas, que es la que corresponde al código, brillantemente planteado por Fernando Santos
02/08/2017 at 1:43 am
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
02/03/2018 at 5:21 pm
Buena tarde, como seria el código si quisiera concatenar unas celdas pero antes de la ultima celda me anteponga la “y”. me explico , con el código quedaría, alex; maría; juan; pilar; alberto; ale, que instrucción tendría que aumentar para que me quedara alex, maría, juan, pilar, alberto y ale.