Перетворення матриці у вектор
Це протилежний підручник з перетворення однорядного вектора в матричний підручник.
Наступна функція візьме діапазон як матрицю і перетворить його на вектор єдиного стовпця:
Опція Явна функція Create_Vector (Діапазон матриці як діапазон) Як варіант 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 'Усуньте умови NULL, якщо Matrix_Range нічого, тоді вийдіть з функції, якщо No_of_Cols = 0, тоді вийдіть з функції, якщо No_Of_Rows = 0, тоді вийдіть з функції для j = 1 до No_Of_Rows для i = 0 до No_of_Cols - 1 Temp_Array ((i * No_Of_Rows) Matrix_Range.Cells (j, i + 1) Next i Next j Create_Vector = Temp_Array End Функція
Так, наприклад, вектор:
Стане:
Де ми використовували таку підпрограму, щоб роздрукувати вектор:
Приватна підказка CommandButton1_Click () Dim Vector Dim k As Integer Vector = Create_Vector (Sheets ("Sheet1"). Range ("A4: D8")) For k = 1 To UBound (Vector) Sheets ("Sheet1"). Range (" B20 "). Зсув (k, 1). Значення = Вектор (k) Далі k Закінчити суб
Зауважте, що ці процедури працюють як над цифрами, так і над текстом.
Щоб завантажити файл .XLSM з цього підручника, натисніть тут.
