- Passo 1Estrarre il tutorial VBA interattivo gratuito
- Passo 2Il nostro componente aggiuntivo VBA semplifica il download della codifica
- Passaggio 3Fare riferimento al nostro codice di esempio VBA
- AssumiciRequisito VBA complesso? Assumi i nostri esperti.
Converti un vettore a riga singola in una matrice
Questo è il tutorial opposto del tutorial Converti matrice in vettore.
La seguente funzione prende un vettore a riga singola e lo converte in una matrice:
123456789101112131415161718 | Funzione Create_Matrix(Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) As VariantReDim Temp_Array(No_Of_Cols_in_output, No_of_Rows_in_output)Dim No_Of_Elements_In_Vector As IntegerDim Col_Count As Integer, Row_Count As IntegerDim CellNo_Of_Elements_In_Vector = Vector_Range.Rows.Count"Elimina condizioni NULL"Se Vector_Range non è nulla, quindi esci dalla funzioneSe No_Of_Cols_in_output = 0 Allora esci dalla funzioneSe No_of_Rows_in_output = 0 allora esci dalla funzioneSe No_Of_Elements_In_Vector = 0 allora esci dalla funzionePer Col_Count = 1 a No_Of_Cols_in_outputPer Row_Count = 1 a No_of_Rows_in_outputTemp_Array(Col_Count, Row_Count) = Vector_Range.Cells(((No_of_Rows_in_output) * (Col_Count - 1) + Row_Count), 1)Riga_conteggio successivaCol_Count successivoCreate_Matrix = Temp_ArrayFine funzione |
La funzione accetta 3 argomenti:
• L'intervallo del vettore iniziale
• Il numero di righe richieste nella matrice
• Il numero di colonne richieste nella matrice
Quindi se abbiamo:
Quindi possiamo chiamare la nostra funzione:
Converti_in_matrice(c7:c16,2,5)
In cui si:
1. c7:c16 è l'intervallo della matrice
2. 2 è il numero di righe richieste nella matrice
3. 5 è il numero di colonne richieste
E otteniamo:
Per scaricare il file .XLSM da questa funzione, clicca qui.