Answers for "vba multidimensional array"

vba multidimensional array

Sub CreatingArrays()
	
    'Declarating
    Dim arrVar(0 to 3, 0 to 5) As Variant 'Creating an array of 4x6 dimensions
    Dim strArr(3,5) As String 			  'Creating an string array of 4x6 dimensions
    
    'Contro Variables
    Dim i As Integer
    Dim j As Integer
    Dim intCount as Integer
    
    'Fulling up Arrays
    For i = LBound(arrVar) To UBound(arrVar)
    	For j = LBound(arrVar, 2) To UBound(arrVar, 2)
        	arrVar(i, j) = intCount
            arrStr(i, j) = "X, Y: " & i & ", " & j
            intCount = intCount + 1
        Next j
    Next i
    
End Sub