Hola,

Estoy teniendo un problema a la hora de distribuir un texto en varias columnas. Estoy trabajando con un fichero de datos de una encuesta, el cual de momento sólo tengo en un .txt y me gustaría pasar a .csv para trabajar con él en SPSS.

No tengo manera de separar en celdas de forma automática porque no tengo un separador concreto, no hay comas, los espacios no coinciden necesariamente con nuevas celdas, etc. Decidí hacerlo manualmente ya que tengo los datos de donde empieza y acaba cada columna, pero se me hace tedioso y da lugar a errores al hacerlo de manera manual.

¿Existiría una macro capaz de separarlo en columnas de forma que yo metiera el número de de caracteres que quiero en cada columna, o la posición donde quiero que cada una empiece-acabe?

Adjunto el .txt con el que trabajo y el Excel donde se explica la separación en columnas.

https://dl.dropboxusercontent.com/u/6604463/MicrodatoAdultos.txt

https://dl.dropboxusercontent.com/u/6604463/DisenoAdultos.xls

Os agradecería cualquier tipo de orientación.

Muchísimas gracias.

Buenas, Celia

Este es el código que genera el propio grabador de macros al hacer una separación de texto en columnas de tipo manual.

Como ves, lo que necesitarías sería adaptar tus necesidades a esta estructura. El primer dato dentro del Array es el que indica el nº de caracter donde empieza la columna, pero observa que es sobre el nº total de caracteres, que creo que es 741.

Por si te sirve de ayuda.

Un saludo,

Tese

Sub Macro1()

    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

        FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(11, 1), Array(16, 1), Array(23, 1), Array(29, 1), _

        Array(34, 1), Array(35, 1), Array(42, 1), Array(54, 1), Array(73, 1), Array(78, 1), Array( _

        81, 1), Array(85, 1), Array(88, 1), Array(91, 1), Array(99, 1), Array(102, 1), Array(105, 1) _

        , Array(108, 1), Array(111, 1), Array(117, 1), Array(120, 1), Array(123, 1), Array(126, 1), _

        Array(129, 1), Array(135, 1), Array(138, 1), Array(144, 1), Array(147, 1), Array(150, 1), _

        Array(153, 1), Array(158, 1), Array(159, 1), Array(162, 1), Array(171, 1), Array(176, 1), _

        Array(194, 1), Array(231, 1), Array(258, 1), Array(323, 1), Array(352, 1), Array(365, 1), _

        Array(369, 1), Array(371, 1), Array(373, 1), Array(375, 1), Array(379, 1), Array(381, 1), _

        Array(383, 1), Array(385, 1), Array(391, 1), Array(393, 1), Array(396, 1), Array(397, 1), _

        Array(401, 1), Array(403, 1), Array(415, 1), Array(440, 1), Array(476, 1), Array(524, 1), _

        Array(539, 1), Array(554, 1), Array(569, 1), Array(631, 1), Array(634, 1), Array(685, 1), _

        Array(701, 1)), TrailingMinusNumbers:=True

End Sub[/CODE]

Muchas gracias Tese, la estructura que me muestras me ayuda bastante, muchísimas gracias.

No obstante, he estado investigando sobre cómo hacerlo y se me ocurrió utilizar la fórmula:

EXTRAE (texto, posición de inicio, número de caracteres de la columna)

Me he colocado tanto la posición como el número de caracteres de forma que la fórmula los coja automáticamente y arrastrando obtengo el fichero de datos que quería.

De todas formas voy a guardar tu macro para el futuro. Gracias de nuevo!