Completar 'extraer'

Selecciona la celda donde tengas la lista y haz Menú / Datos / Texto
en columnas, elige 'Delimitados', pulsa 'Siguiente', en separadores
elige 'Otro' y coloca un guion en la casilla adyacente, y pulsa
'Finalizar'.

:-)

Hola
Tengo listas de 6 numeros cada una separados por un guion y espacio: '2 -
12 - 21 - 33 - 40 - 42', y querría una formula para 'extraer' en las 6
columnas adyacentes, los números escuetos de cada una de las listas, sin
guiones ni espacios, y que pudiera ¡copiar' y repetir para todas las listas.
El problema es que cada número en cada posición, pueden ser de UN digito o
de DOS.
Para extraer UN numero no tengo problema, pero con la dificultad que
comento, no alcanzo.
Gracias y saludos.

"Alfonso" escribió

Hola
Tengo listas de 6 numeros cada una separados por un guion y espacio: '2 -
12 - 21 - 33 - 40 - 42', y querría una formula para 'extraer' en las 6
columnas adyacentes, los números escuetos de cada una de las listas, sin
guiones ni espacios, y que pudiera ¡copiar' y repetir para todas las
listas.
El problema es que cada número en cada posición, pueden ser de UN digito o
de DOS.
Para extraer UN numero no tengo problema, pero con la dificultad que
comento, no alcanzo.
Gracias y saludos.

Hola Alfonso,

Has probado con la opcion texto en columnas?
empleas el texto delimitado, y luego como separadores indicas el espacio y
el guion.

si no es lo que necesitas probablemente seria conveniente el empleo de
macros, puesto que por formulas te obligaria a escribir siempre las mismas
formulas para todas las listas.

Como aproximación te paso una macro que descompone los valores de la columna
A en celdas individuales a partir de la columna C

Un saludo,
Juan

Sub separalista()
Dim a As Variant
Dim i As Long, j As Long

i = 1
Do While Range("A" & i) <> ""
a = Split(Range("A" & i), "-")
For j = 0 To UBound(a)
Range("C" & i).Offset(, j) = a(j)
Next j
i = i + 1
Loop

End Sub

Gracias Juan M por tu tiempo explicaciones y macro.
Tu solución como texto delimitado, que es igual a la de Víctor, me ha
funcionado perfectamente.
Un saludo.
-
"Juan M" escribió en el mensaje de noticias
news:

"Alfonso" escribió

Hola
Tengo listas de 6 numeros cada una separados por un guion y espacio: '2 -
12 - 21 - 33 - 40 - 42', y querría una formula para 'extraer' en las 6
columnas adyacentes, los números escuetos de cada una de las listas, sin
guiones ni espacios, y que pudiera ¡copiar' y repetir para todas las
listas.
El problema es que cada número en cada posición, pueden ser de UN digito
o de DOS.
Para extraer UN numero no tengo problema, pero con la dificultad que
comento, no alcanzo.
Gracias y saludos.

Hola Alfonso,

Has probado con la opcion texto en columnas?
empleas el texto delimitado, y luego como separadores indicas el espacio y
el guion.

si no es lo que necesitas probablemente seria conveniente el empleo de
macros, puesto que por formulas te obligaria a escribir siempre las mismas
formulas para todas las listas.

Como aproximación te paso una macro que descompone los valores de la
columna A en celdas individuales a partir de la columna C

Un saludo,
Juan

Sub separalista()
Dim a As Variant
Dim i As Long, j As Long

i = 1
Do While Range("A" & i) <> ""
a = Split(Range("A" & i), "-")
For j = 0 To UBound(a)
Range("C" & i).Offset(, j) = a(j)
Next j
i = i + 1
Loop

End Sub

Gracias Víctor por tu estupenda aclaración. Me ha funcionado y a la vez me
ha dejado 'patidifuso' por el perfecto funcionamiento en mi excel 2007 (como
si la hubiesen implementado para mi).
Un cordial saludo.
-
"Victor" escribió en el mensaje de noticias
news:
Selecciona la celda donde tengas la lista y haz Menú / Datos / Texto
en columnas, elige 'Delimitados', pulsa 'Siguiente', en separadores
elige 'Otro' y coloca un guion en la casilla adyacente, y pulsa
'Finalizar'.

:-)

Hola
Tengo listas de 6 numeros cada una separados por un guion y espacio: '2 -
12 - 21 - 33 - 40 - 42', y querría una formula para 'extraer' en las 6
columnas adyacentes, los números escuetos de cada una de las listas, sin
guiones ni espacios, y que pudiera ¡copiar' y repetir para todas las
listas.
El problema es que cada número en cada posición, pueden ser de UN digito o
de DOS.
Para extraer UN numero no tengo problema, pero con la dificultad que
comento, no alcanzo.
Gracias y saludos.