Tabla de contenido
Convertir matriz en un vector
Este es el tutorial opuesto al tutorial Conversión de un vector de fila única en una matriz.
La siguiente función tomará un rango como una matriz y lo convertirá en un vector de columna única:
Opción Función explícita Create_Vector (Matrix_Range As Range) Como Variant Dim No_of_Cols Como Integer, No_Of_Rows Como Integer Dim i Como Integer Dim j Como Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = Matrix_Range.Rows.Nos.Ount_Cray 'Eliminar condiciones NULL si Matrix_Range no es nada, luego salir de la función si No_of_Cols = 0 Luego salir de la función si No_Of_Rows = 0 Luego salir de la función para j = 1 a No_Of_Rows para i = 0 a No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) + j) = Matrix_Range.Cells (j, i + 1) Siguiente i Siguiente j Create_Vector = Temp_Array End Function
Entonces, por ejemplo, el vector:
Se convertirá:
Donde hemos usado la siguiente subrutina para imprimir el vector:
Private Sub CommandButton1_Click () Dim Vector Dim k As Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Desplazamiento (k, 1). Valor = Vector (k) Siguiente k Fin Sub
Tenga en cuenta que estas rutinas funcionan tanto con números como con texto.
Para descargar el archivo .XLSM de este tutorial, haga clic aquí.
