Concatenar celdas con una coma separando

hola expertos la idea es que en una sola celda puede utilizar una formula para lo siguiente; tengo datos desde la columna A hasta la Z en la fila 1; quiero que en la celda a2, pueda concatenar todos los datos pero separando cada uno por una coma, me explico la idea es que debe quedar asi a1&","b1&",", pero no quiero hacerlo manual ir seleccionando cada celda y la coma, celda y coma, celda y coma etc..

gracias

1 respuesta

Respuesta
1

Te mando mi solución con esta macro:

Sub prueba()
'por luismondelo
Range("a1").Select
Do While ActiveCell.Value <> ""
lista = lista & "," & ActiveCell
ActiveCell.Offset(0, 1).Select
Loop
lista = Mid(lista, 2, Len(lista) - 1)
Range("a2").Value = lista
End Sub

recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas