Cómo traspasar varias filas en una sola columna

Lo que pasa es que quiero traspasar varias filas en una sola columna sin modificar la cantidad de registros, por ejemplo, tengo la siguiente matriz:
             A B C
1)  3/ene/2002   3/ene/2002  17/dic/2002
2)  17/dic/2007  7/jul/2000      1/nov/2000
 3) 7/jul/2005   9/sep/2007    29/oct/1999
4)                                             17/dic/2007
5) 3/ene/2002  
La idea es poder dejar todos estos datos en una misma columna sin cambiar la cantidad de registros; Por ejemplo en la fila 4, debería saltarse 2 filas sin nada y en la tercera colocar el valor de C.
En conclusión me interesa dejar una columna de las sgtes características:
A1
B1
C1
A2
B2
C2
A3
B3
C3
A4
B4
C4
A5
B5
C5

1 Respuesta

Respuesta
3
Te he preparado una macro para hacer lo que necesitas:
Sub Columna()
    Const NUMERO_COLUMNAS = 3
    Const NUMERO_FILAS = 5
    Const COLUMNA_DESTINO = 5 'La columna número 5 es la E
    Dim i As Long
    Dim j As Long
    Dim nFilaDestino As Long
    Columns(COLUMNA_DESTINO).Clear
    nFilaDestino = 1
    For i = 1 To NUMERO_FILAS
        For j = 1 To NUMERO_COLUMNAS
            Cells(nFilaDestino, COLUMNA_DESTINO) = Cells(i, j)
            nFilaDestino = nFilaDestino + 1
        Next
    Next
    Cells(1, COLUMNA_DESTINO).Select
End Sub
Tiene 3 constantes que están en negrita. Estas constantes puedes modificarlas según tu caso.
Te he dejado aquí el ejemplo por si quieres descargártelo.
http://goo.gl/Fn0ga
Saludos,
Carlos
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas