Kazalo
Pretvorite matriko v vektor
To je nasprotna vadnica Pretvarjanja vektorja ene vrstice v vadnico Matrix.
Naslednja funkcija bo vzela obseg kot matriko in ga pretvorila v vektor enega stolpca:
Možnost Eksplicitna funkcija Create_Vector (Matrix_Range As Range) Kot različica Dim No_of_Cols As Integer, No_Of_Rows As Integer Dim i As Integer Dim j As Integer Dim Cell No_of_Cols = Matrix_Range.Columns.Count No_Of_Rows = No_Rows_Rows_Rows_Rows "Odpravite pogoje NULL, če Matrix_Range ni nič, nato zapustite funkcijo, če je No_of_Cols = 0, nato zapustite funkcijo, če je No_Of_Rows = 0, nato zapustite funkcijo za j = 1 do št. Matrix_Range.Cells (j, i + 1) Next i Next j Create_Vector = Temp_Array End Funkcija
Tako na primer vektor:
Bo:
Kjer smo za tiskanje vektorja uporabili naslednjo podprogram:
Zasebni pod -ukaz Button1_Click () Dim Vector Vector Dim k As Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Odmik (k, 1). Vrednost = vektor (k) Naprej k Končaj podn
Upoštevajte, da te rutine delujejo tako na številke kot na besedilo.
Če želite prenesti datoteko .XLSM iz te vadnice, kliknite tukaj.
