Konvertieren eines einzelnen Zeilenvektors in eine Matrix - VBA-Codebeispiele

☰

• Schritt 1Nehmen Sie das interaktive VBA-Tutorial kostenlos heraus
• Schritt 2Unser VBA-Add-In macht das Codieren zum einfachen Download
• Schritt 3Siehe unseren VBA-Beispielcode
• Stellen Sie uns einKomplexe VBA-Anforderung? Beauftragen Sie unsere Experten.

VBA lernen

Konvertieren eines einreihigen Vektors in eine Matrix

Dies ist das entgegengesetzte Tutorial des Tutorials Matrix in Vektor konvertieren.

Die folgende Funktion nimmt einen einzelnen Zeilenvektor und wandelt ihn in eine Matrix um:

123456789101112131415161718

Funktion Create_Matrix(Vector_Range als Bereich, No_Of_Cols_in_output als Integer, No_of_Rows_in_output als Integer) als VarianteReDim Temp_Array(No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector As IntegerDim Col_Count als Integer, Row_Count als IntegerZelle dimmenNo_Of_Elements_In_Vector = Vector_Range.Rows.Count'NULL-Bedingungen beseitigenWenn Vector_Range nichts ist, dann Funktion beendenWenn No_Of_Cols_in_output = 0, dann Funktion beendenWenn No_of_Rows_in_output = 0, dann Funktion beendenWenn No_Of_Elements_In_Vector = 0, dann Funktion beendenFür Col_Count = 1 To No_Of_Cols_in_outputFür Row_Count = 1 To 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ächste Row_CountNächster Col_CountCreate_Matrix = Temp_ArrayEndfunktion

Die Funktion benötigt 3 Argumente:
• Die Reichweite des Anfangsvektors
• Die Anzahl der Zeilen, die in der Matrix benötigt werden
• Die erforderliche Spaltenanzahl in der Matrix

Wenn wir also haben:

Dann können wir unsere Funktion aufrufen:

Convert_to_matrix(c7:c16,2,5)

Woher:

1. c7:c16 ist der Matrixbereich
2. 2 ist die Anzahl der Zeilen, die in der Matrix benötigt werden
3. 5 ist die erforderliche Spaltenanzahl

Und wir bekommen:

Um die .XLSM-Datei von dieser Funktion herunterzuladen, klicken Sie hier.