¿Cómo puedo dividir los datos de Excel de 1 columna en 8 columnas manteniendo los datos en un orden específico?

4

Necesito mantener el orden de los datos. Entonces, para explicar, necesito mover los datos de la celda

a1 a b1,
a2 a c1,
a3 a d1,
a4 a e1,
a5 a f1,
a6 a g1,
a7 a h1,
a8 a i1,

a9 a B2
a10 a C2
a11 a D2
a12 a E2
a13 a F2
a14 a G2
a15 a H2
a16 a I2

Enjuague y repita hasta que haya revisado todas las 24000 entradas en la columna A

¿Ciertamente hay una manera fácil de lograr esto a través de macro o vba? ¿Tal vez una característica en las versiones más recientes ya podría hacer esto?

microsoft-excel macros vba

— Ralph
fuente

Traté de publicar fotos de lo que estoy haciendo, pero no tengo suficientes "puntos" en el foro para hacerlo: S

— Ralph

2

Aquí hay una solución VBA:

Option Explicit
Private Sub ReArrangeCells()

  Dim ws As Worksheet, LastRow As Long
  Set ws = Excel.ActiveSheet

  LastRow = Range("A65536").End(xlUp).Row

  Dim i As Long, j As Long, FromCell As Range, ToCell As Range, sNewCol As String, sNewRow As String
  For i = 1 To LastRow

    Set FromCell = ws.Range("A" & i)                       'the cell we want to move
    sNewCol = IIf(i Mod 8 = 0, Chr$(72), Chr$((i Mod 8) + 64))
    sNewRow = IIf(i Mod 8 = 0, (i \ 8), (i \ 8) + 1)
    Set ToCell = ws.Range(sNewCol & sNewRow)               'the cell we want to copy the data to

    FromCell.Copy ToCell
    If i <> 1 Then FromCell.Clear

    If i Mod 100 = 0 Then DoEvents

  Next i

End Sub

— wbeard52
fuente

Esto funcionó de maravilla muchas gracias!

— Ralph

2

Aquí hay una solución. Se supone lo siguiente:

Todos los datos originales están en la columna A
La columna B contiene solo el índice de la fila

Fórmula: en =INDIRECT(CONCATENATE("a",$B2*8 + col_offset))donde col_offset es el número de columna (indexado a cero). Entonces en la primera columna sería =INDIRECT(CONCATENATE("a",$B2*8))y en la octava columna sería =INDIRECT(CONCATENATE("a",$B2*8+7)).

Una imagen para aclarar las cosas:

ingrese la descripción de la imagen aquí

Editar: Nueva fórmula: =INDIRECT(CONCATENATE("a",(ROW()-2)*8+(COLUMN()-3)))donde el -2y -3son los desplazamientos de fila y columna. Simplemente pegue esto en todas las celdas donde desea que se muestren sus datos. (esta solución es mejor porque la columna B ahora se puede eliminar)

— soandos
fuente

@Ralph por favor avíseme si hay algún problema. Trabajando para limpiarlo un poco ahora.

— soandos

Lo hago funcionar para los primeros 8 (a1 a a8) ¡Pero cómo hago que funcione más allá de eso? Traté de arrastrar el relleno automático hacia abajo y eso me dio un error de tipo de datos incorrecto. Debo estar haciendo algo mal o no entender.

— Ralph

Vea la edición para una nueva fórmula, pero Ctrl + D debería funcionar bien (debe hacer toda la fila de una vez con la fórmula anterior), con la nueva no importa

— Comandos

Nuevamente, gracias por la solución. No pude descubrir cómo hacerlo funcionar, pero estoy seguro de que es porque no estoy haciendo algo bien.

— Ralph

0

Las respuestas de VBA son las mejores para manejar una gran cantidad de datos, pero señalaré que también puede hacerlo a través de copiar / pegar usando "Transponer". Es una solución fácil de hacer clic con el botón derecho para pequeñas necesidades. Esto se aplica a 2010 con seguridad y creo que 2007 también.

Parece que tampoco puedo hacer imágenes todavía ...

Copia tus celdas verticalmente
Haga clic derecho en otra celda y use la cuarta opción en "Opciones de pegado" (parece dos rectángulos azules en ángulo recto)

Más rápido en algunas circunstancias.

— Andy Raddatz
fuente