Konvertering af en enkelt rækkevektor til en matrix - VBA -kodeeksempler

☰

• Trin 1Tag interaktiv VBA -tutorial gratis ud
• Trin 2Vores VBA-tilføjelse gør kodning let at downloade
• Trin 3Se vores VBA -prøvekode
• Ansæt osKomplekse VBA -krav? Ansæt vores eksperter.

Lær VBA

Konverter enkelt rækkevektor til en matrix

Dette er det modsatte selvstudium af konverteringsmatrixen til vektor -selvstudiet.

Følgende funktion tager en enkelt rækkevektor og konverteres til en matrix:

123456789101112131415161718

Funktion Create_Matrix (Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) Som variantReDim Temp_Array (No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector som heltalDim Col_Count As Integer, Row_Count As IntegerDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'Eliminer NULL -betingelserHvis Vector_Range ikke er noget, skal du afslutte funktionenHvis No_Of_Cols_in_output = 0 Afslut derefter funktionenHvis No_of_Rows_in_output = 0 Afslut derefter funktionenHvis No_Of_Elements_In_Vector = 0 Afslut derefter funktionenFor Col_Count = 1 Til No_Of_Cols_in_outputFor Row_Count = 1 Til No_of_Rows_in_outputTemp_Array (Col_Count, Row_Count) = Vector_Range.Cells ((((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Næste Row_CountNæste Col_CountCreate_Matrix = Temp_ArrayAfslut funktion

Funktionen tager 3 argumenter:
• Område for den oprindelige vektor
• Det antal rækker, der kræves i matricen
• Antallet af kolonner, der kræves i matricen

Så hvis vi har:

Så kan vi kalde vores funktion:

Convert_to_matrix (c7: c16,2,5)

Hvor:

1. c7: c16 er matrixområdet
2. 2 er antallet af rækker, der kræves i matricen
3. 5 er antallet af kolonner, der kræves

Og vi får:

Klik her for at downloade .XLSM -filen fra denne funktion.