Conversión de un vector de fila única en una matriz - Ejemplos de código VBA

☰

• Paso 1Saque el tutorial interactivo de VBA gratis
• Paso 2Nuestro complemento VBA facilita la descarga de la codificación
• Paso 3Consulte nuestro código de muestra de VBA
• Contratanos¿Requisito complejo de VBA? Contrata a nuestros expertos.

Aprenda VBA

Convertir un vector de fila única en una matriz

Este es el tutorial opuesto al tutorial Convertir matriz en vector.

La siguiente función toma un vector de una sola fila y lo convierte en una matriz:

123456789101112131415161718

Función Create_Matrix (Vector_Range como rango, No_Of_Cols_in_output como entero, No_of_Rows_in_output como entero) como varianteReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector como enteroDim Col_Count como entero, Row_Count como enteroDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Eliminar condiciones NULLSi Vector_Range no es nada, entonces salga de la funciónSi No_Of_Cols_in_output = 0, salga de la funciónSi No_of_Rows_in_output = 0, salga de la funciónSi No_Of_Elements_In_Vector = 0, salga de la funciónPara Col_Count = 1 a No_Of_Cols_in_outputPara Row_Count = 1 a No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells (((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Siguiente Row_CountSiguiente Col_CountCreate_Matrix = Temp_ArrayFunción final

La función toma 3 argumentos:
• El rango del vector inicial
• El número de filas requeridas en la matriz.
• El número de columnas requeridas en la matriz.

Entonces, si tenemos:

Entonces podemos llamar a nuestra función:

Convertir_a_matriz (c7: c16,2,5)

Dónde:

1. c7: c16 es el rango de la matriz
2. 2 es el número de filas requeridas en la matriz
3. 5 es el número de columnas requeridas

Y obtenemos:

Para descargar el archivo .XLSM desde esta función, haga clic aquí.