Macro en excel

04/06/2010 - 04:18 por Luis Angel | Informe spam
como puedo hacer para extraer
91133067
43
GDL
91133048
54
GDL
91122039
275
GDL
965400223
104
SS

Los datos estan en una sola columna, y lo que quiero que haga es un ciclo
para colocar estos datos independientes en columnas, los datos pueden variar
en cantidad a veces 20 otras 500, y debe terminar con una tabla dinámica.

Les agradezco de antemano su ayuda.

Muchas gracias.
 

Leer las respuestas

#1 Héctor Miguel
04/06/2010 - 06:04 | Informe spam
hola, Luis Angel !

prueba con una macro +/- como la siguiente:

Sub Nuevo_arreglo()
Application.ScreenUpdating = False
Dim Fila As Integer, Col As String
Col = "a"
For Fila = 2 To Range(Col & 65536).End(xlUp).Row Step 3
Range(Col & Fila).Resize(, 3).Value = _
Application.Transpose(Range(Col & Fila).Resize(3).Value)
Next
With Range(Col & 2).Offset(, 1)
Range(.Offset, Range(Col & 65536).End(xlUp).Offset(, 1)) _
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Debug.Print ActiveSheet.UsedRange.Address
End Sub

saludos,
hector.

__ OP __
como puedo hacer para extraer
91133067
43
GDL
91133048
54
GDL
91122039
275
GDL
965400223
104
SS

Los datos estan en una sola columna
y lo que quiero que haga es un ciclo para colocar estos datos independientes en columnas
los datos pueden variar en cantidad a veces 20 otras 500, y debe terminar con una tabla dinamica...

Preguntas similares