Texto vario en una unica celda

24/11/2009 - 16:18 por Pedrito | Informe spam
Tengo una columna con textos desde A2 hasta A1500. Querria tener una
unica celda todos los textos separados por una coma. Ejemplo: en A1
tengo mesa, en A2 silla, en A3 armario, en A4 ordenador,.
Querria que en B5 me apareciera: mesa,silla,armario,ordenador y
asi sucesivamente. Puede hacese? Gracias anticipadas por las respuestas

Preguntas similare

Leer las respuestas

#1 Alonso
24/11/2009 - 19:03 | Informe spam
Podes poner en la celda que necesites la informacion la siguiente
formula:¢&","&A3&","&A4&…….&A1500
Es decir vas concatenan do celda por celda y vas incertando tambien la
", ", pero para la cantidad de datos que tenes es muy tedioso hacerlo.

Alonso
Respuesta Responder a este mensaje
#2 AnSanVal
24/11/2009 - 19:21 | Informe spam
"... Tengo una columna con textos desde A2 hasta A1500. Querria tener una unica celda todos los textos separados por una
coma. Ejemplo: en A1 tengo mesa, en A2 silla, en A3 armario, en A4 ordenador,. Querria que en B5 me
apareciera: mesa,silla,armario,ordenador y asi sucesivamente. Puede hacese?..."

¡Depende! Excel no es un procesadopr de textos y tiene unos límites (Busca LÍMITES en la ayuda).

Se podría hacer con una macro en VBA, pero depende de para que quieres tenerlo en esa forma... si es para guardarlo
como texto separado por comas; Puedes guardarlo como CSV (texto delimitado por comas) y Excel se encarga de todo.

Saludos: Antonio.
************************

"Pedrito" escribió en el mensaje
news:
Tengo una columna con textos desde A2 hasta A1500. Querria tener una
unica celda todos los textos separados por una coma. Ejemplo: en A1
tengo mesa, en A2 silla, en A3 armario, en A4 ordenador,.
Querria que en B5 me apareciera: mesa,silla,armario,ordenador y
asi sucesivamente. Puede hacese? Gracias anticipadas por las respuestas
Respuesta Responder a este mensaje
#3 AnSanVal
24/11/2009 - 19:41 | Informe spam
Quizás simplemente quieres tenerlo en B5.



Prueba con el siguiente código:


Sub algo()

Dim n%

For n = 1 To 1500

[B5].Value = [B5].Value & "," & Cells(n, 1).Value

Next n

[B5].Value = Mid([B5].Value, 2)

End Sub





Saludos: Antonio.

************************
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida