Konvertera en enda radvektor till en matris - exempel på VBA -kod

☰

• Steg 1Ta ut gratis interaktiv VBA -handledning
• Steg 2Vårt VBA-tillägg gör kodning enkel att ladda ner
• Steg 3Se vår VBA -provkod
• Anlita ossKomplex VBA -krav? Anlita våra experter.

Lär dig VBA

Konvertera Single Row Vector till en matris

Detta är den motsatta självstudien av handlingen Konvertera matris till vektor.

Följande funktion tar en enda radvektor och konverteras till en matris:

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'Eliminera NULL -villkorOm Vector_Range inte är något så avsluta funktionenOm No_Of_Cols_in_output = 0 Avsluta sedan funktionenOm No_of_Rows_in_output = 0 Avsluta sedan funktionenOm No_Of_Elements_In_Vector = 0 Avsluta sedan funktionenFör Col_Count = 1 Till No_Of_Cols_in_outputFör Row_Count = 1 Till 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ästa rad_räkningNästa Col_CountCreate_Matrix = Temp_ArrayAvsluta funktion

Funktionen tar 3 argument:
• Intervallet för den initiala vektorn
• Antalet rader som krävs i matrisen
• Antalet kolumner som krävs i matrisen

Så om vi har:

Då kan vi kalla vår funktion:

Convert_to_matrix (c7: c16,2,5)

Var:

1. c7: c16 är matrisområdet
2. 2 är antalet rader som krävs i matrisen
3. 5 är antalet kolumner som krävs

Och vi får:

För att ladda ner .XLSM -filen från den här funktionen, klicka här.