Multidimensional array in VBA

[Stevenn]

How can I make a multidimensional array like this:

[ [ "Name 1", [ "A", "B", "C" ] ], [ "Name 2", [ "D", "E", "F", "G", "H" ] ], [ "Name 3", [ "I" ] ] ]

It's a total of three groups which each has a name. I don't know how to create and populate such arrays in VBA and how to finally print it.

 

[Arithos]

Hi

There are several options.

You can use your information about the structure of the jagged array, like
- an undefined number of rows but always 2 columns
- the first element in each row is a string, the second an array with an undefined number of elements

This allows you to make a smart print, like:

Option Explicit
Option Base 1

Public Sub Test1()
Dim i As Long, k As Long
Dim vArr(1 To 3, 1 To 2) As Variant


    vArr(1, 1) = "Group 1"
    vArr(1, 2) = Array("1234", "2345", "3456")


    vArr(2, 1) = "Group 2"
    vArr(2, 2) = Array("4567", "8765", "3214", "4123", "5773")


    vArr(3, 1) = "Group 3"
    vArr(3, 2) = Array("8884")
    
    For i = 1 To UBound(vArr)
 
       Debug.Print vArr(i, 1)
        
        For k = 1 To UBound(vArr(i, 2))
            Debug.Print vArr(i, 2)(k)
        Next k
 
   Next i

End Sub

Does this solve your problem?

Thats the one I thought of atleast, the UBound function for arrays =)

 

[Stevenn]

Hi

There are several options.

You can use your information about the structure of the jagged array, like
- an undefined number of rows but always 2 columns
- the first element in each row is a string, the second an array with an undefined number of elements

This allows you to make a smart print, like:

Option Explicit
Option Base 1

Public Sub Test1()
Dim i As Long, k As Long
Dim vArr(1 To 3, 1 To 2) As Variant


    vArr(1, 1) = "Group 1"
    vArr(1, 2) = Array("1234", "2345", "3456")


    vArr(2, 1) = "Group 2"
    vArr(2, 2) = Array("4567", "8765", "3214", "4123", "5773")


    vArr(3, 1) = "Group 3"
    vArr(3, 2) = Array("8884")
    
    For i = 1 To UBound(vArr)
 
       Debug.Print vArr(i, 1)
        
        For k = 1 To UBound(vArr(i, 2))
            Debug.Print vArr(i, 2)(k)
        Next k
 
   Next i

End Sub

Does this solve your problem?

It does solve my problem Thank you! Great help!

 

[pgc01]

You're welcome. Thanks for the feedback.