Macro para trasponer varias matrices consecutivas a una columna
Tengo una planilla donde tengo varias matrices de 8x6 consecutivas hacia abajo separadas por una fila. La cantidad de matrices pueden ser variables (no las dimensiones) a partir de la celda D2 y necesito trasponer todos los datos a la columna A sin dejar espacios.
Utilizo Excel 2010
1 Respuesta
Ayudaría mucho si pones dos ejemplos de tus matrices, cómo las tienes y cómo las quieres.
Dices que las matrices son de 8x6, ¿pero 8 filas por 6 columnas ó 8 columnas por 6 filas?
Las quieres en la columna A, ¿pero ahora las quieres 6x8? ¿O quieres que todos los datos de se pasen de la A1 a la A en adelante?
Por eso digo que unos ejemplos de cómo está y cómo los quieres ayudarían mucho, si puedes poner los ejemplos en imagen ayudarían más.
Hola Dante, mira las matrices son de 8 filas por 6 columnas algo así:
2 3 4 5 6 2
1 5 3 5 9 0
3 3 1 4 6 7
.
.
Cuando termina la matriz de 8 filas hay una fila en blanco y luego otra matriz igual a la anterior pueden ser por matrices. En la columna A necesitaría el siguiente resultado:
2
3
4
5
6
2
1
5
3
5
9
0
.
.
.
Sucesivamente hasta trasponer todas las matrices
Espero haber sido más claro
Muchas gracias
Te anexo la macro
Sub transponer()
'Por.Dante Amor
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
j = 1
Columns("A").ClearContents
For Each c In Range("D2").Resize(u, 6)
If c.Value <> "" Then
Cells(j, "A") = c.Value
j = j + 1
End If
Next
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
Estimado Dante,Para copiar las celdas que se encuentra en colores que cambios se hace , gracias. - Harby Ramos
Cómo es eso de colores? - Dante Amor
con una celda que esta sombreada de color, gracias - Harby Ramos