Cómo separar texto en varias filas.
Tengo un texto que el distribuidor me envía únicamente separado con ";" (agrego archivo) y quisiera me ayudaran para separar mi texto en columnas diferentes a1= compañía b1= fibracel ... Etc si se pudiera con alguna fórmula estaría mejor. Saludos y gracias.
https://onedrive.live.com/redir?resid=65F65CA2320BC678!1466&authkey=!AEaVLMgTSMuvMK0&ithint=file%2cxlsx
1 respuesta
H o l a:
Para pasar el texto a columnas, selecciona la celda que contiene el texto, elige del menú Datos, Texto en Columnas.
En la siguiente pantalla, selecciona la opción Delimitados. Presiona Siguiente
En la siguiente pantalla, marca la casilla Punto y coma. Presiona Siguiente
Presiona Finalizar
Si es lo que necesitas, recuerda valorar la respuesta.
He probado como me me dice pero solo me marca el primer dato que corresponde a "compañía" y los demás desaparecen, no se si habría alguna fórmula que separa los datos que se encuentran entre; o cual sera otra manera sin utilizar texto en columnas" Saludos y muchas gracias.
H o l a:
Según el dato que enviaste la mejor opción es con Texto en columnas.
Si sigues los pasos adecuadamente podrás pasar los textos que están separados por ";" a columnas.
No existe una fórmula que pueda hacer eso.
Si quieres envíame tu archivo y te explico paso a paso cómo debes hacerlo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jaime Luna” y el título de esta pregunta.
Le envíe a su correo la información solicitada, muchas gracias.
H o l a:
El problema es que entre los textos tienes caracteres de control:
Entonces al intentar separar el texto en columnas, el carácter de control, truca la información.
Para quitar el carácter de control, te preparé una macro, cambia en la macro "B" por la letra de la columna que contiene la información.
Sub reem() 'Por.Dante Amor col = "B" ' Application.ScreenUpdating = False For i = 2 To Range(col & Rows.Count).End(xlUp).Row For j = 1 To Len(Cells(i, col)) car = Asc(Mid(Cells(i, col), j, 1)) If car <> 13 Then cad = cad & Mid(Cells(i, col), j, 1) End If Next Cells(i, col) = cad Next End Sub
Sigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
Después de ejecutar la macro tendrás los datos separados por ;
Ahora sí, separa la información con Texto en columnas.
