pasar columnas de word a excel

[moninine]

Porfis necesito ayuda urgente:

Necesito pasar datos de word a excel. EJ:
0 2 992 5.0 90 4.9640 123 -9999 350 -9.9 -9999 171 8.3
0 4 991 5.3 80 4.5110 131 -9999 351 -9.9 -9999 173 8.2
0 6 990 5.5 80 4.5794 139 -9999 352 -9.9 -9999 174 8.0
0 8 989 5.6 80 4.6164 149 -9999 353 -9.9 -9999 175 7.9

yo necesito pasar esas columnas de datos a Excel para asi poder modificar cada columna por separado, pero cuando lo copio a Excel se copia todo en una sola columna.

Ayudenme por favorrrrrr
Mony

[3pies]

Yo te propongo otra cosa. Pruébala y me dices que te parece:

Código:

Sub reorganizar_todo_que_estoy_desesperado()
'********************************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'********************************************************************************
'Ocultamos el procedimiento para que no se vea en pantalla
'nada de lo que hacemos
Application.ScreenUpdating = False
'Mientras encontremos datos en la fila en cuestión,
'que ejecute el macro
Do While Not IsEmpty(ActiveCell)
  'Primero nos fijaremos en qué celda estamos,
  'para volver a ella una vez arreglada la fila
    dondeestoy = ActiveCell.Address
 'Descomponemos la cadena, en subcadenas,
 'para lo cual indicamos el delimitador " ", aunque
 'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio)
    datos = Split(ActiveCell, " ")
    For i = 0 To UBound(datos)
       'ponemos cada dato del array, en una columna
        ActiveCell = datos(i)
       'nos desplazamos a la columna adyacente (de la derecha)
        ActiveCell.Offset(0, 1).Select
    Next 'Seguimos con el bucle
    'Volvemos donde estábamos inicialmente
    Range(dondeestoy).Select
    'pasamos a la fila siguiente, y volvemos a recorrer el bucle
    ActiveCell.Offset(1, 0).Select
Loop
'Mostramos todo de nuevo
Application.ScreenUpdating = True
'Ahora habría que hacer una donación de 1000 millones
'de dólares a 3pies, pero como es Navidad, estás perdonado...
End Sub

Salu2

[jchuk]

Es que me parece que lo que tú llamas columnas no lo son. Para que sea interpretado como columnas, creo que deberías separar lo que tu llamas columnas entre sí con tabuladores, sino, creo que lo más lógico sería importar los datos desde excel, pero copiarlos y pegarlos........ no sé, no sé.

[moninine]

gracias por su ayuda: JCHUK creo que tenias mucha razon, importandolas desde excel funcionó, lo q pasa es q asi me dieron esos datos y seria mucho trabajo darle tabuladores a cada fila. Pero en fin ya pude hacerlo, graciasssssss