Anónimo
Macro para copiar columnas hacia filas.
Explicándome un poco Supongamos lo siguiente:
[A]= a e i
b f j
c g k
d h l
Lo que deseo es que Mi nueva matriz B quede de esta forma
= a
b
c
d
e
f
g
h
i
j
k
l
Todo esto esta explicado con matriz para que se entienda mejor, pero la operación me gustaría que fuera en excel con algún macro y se debe considerar que mi matriz A puede llegar a tener 700 datos pero unicamente 7 filas.
Espero con ansias su respuesta, gracias.
[A]= a e i
b f j
c g k
d h l
Lo que deseo es que Mi nueva matriz B quede de esta forma
= a
b
c
d
e
f
g
h
i
j
k
l
Todo esto esta explicado con matriz para que se entienda mejor, pero la operación me gustaría que fuera en excel con algún macro y se debe considerar que mi matriz A puede llegar a tener 700 datos pero unicamente 7 filas.
Espero con ansias su respuesta, gracias.
1 Respuesta
Respuesta de Carlos soloffice
1
Te he hecho un ejemplo de lo que quieres
http://goo.gl/wgXy5
Esta es la función que he utilizado
Sub Convertir()
Dim nNumeroFilas As Long
Dim nNumeroColumnas As Long
Dim nFila As Long
Dim nColumna As Long
Dim nFilaHoja2 As Long
'Eliminamos todo lo que haya en la Hoja2
Sheets("Hoja2"). Cells. Clear
nFilaHoja2 = 1
'Introducimos el numero de filas y columnas de nuestra matriz
nNumeroFilas = InputBox("Número de filas de tu matriz", "Ayudando a ", 4)
NNumeroColumnas = InputBox("Número de columnas de tu matriz", "Ayudando a ", 3)
'Recorremos toda la matriz y generamos la nueva columna en la Hoja2
For nColumna = 1 To nNumeroColumnas
For nFila = 1 To nNumeroFilas
Sheets("Hoja2").Cells(nFilaHoja2, 1) = ActiveSheet.Cells(nFila, nColumna)
nFilaHoja2 = nFilaHoja2 + 1
Next
Next
'Mostramos la Hoja2 para ver el resultado
Sheets("Hoja2").Select
End Sub
Saludos,
[email protected]
http://goo.gl/wgXy5
Esta es la función que he utilizado
Sub Convertir()
Dim nNumeroFilas As Long
Dim nNumeroColumnas As Long
Dim nFila As Long
Dim nColumna As Long
Dim nFilaHoja2 As Long
'Eliminamos todo lo que haya en la Hoja2
Sheets("Hoja2"). Cells. Clear
nFilaHoja2 = 1
'Introducimos el numero de filas y columnas de nuestra matriz
nNumeroFilas = InputBox("Número de filas de tu matriz", "Ayudando a ", 4)
NNumeroColumnas = InputBox("Número de columnas de tu matriz", "Ayudando a ", 3)
'Recorremos toda la matriz y generamos la nueva columna en la Hoja2
For nColumna = 1 To nNumeroColumnas
For nFila = 1 To nNumeroFilas
Sheets("Hoja2").Cells(nFilaHoja2, 1) = ActiveSheet.Cells(nFila, nColumna)
nFilaHoja2 = nFilaHoja2 + 1
Next
Next
'Mostramos la Hoja2 para ver el resultado
Sheets("Hoja2").Select
End Sub
Saludos,
[email protected]