Element in 2D array

[mandukes]

Hi

I need to get the elements of 2D array

Sub ttt()
Dim a(2, 6) As Integer
a(1, 1) = 10
a(1, 2) = 20
a(1, 3) = 30
a(1, 4) = 40
a(1, 5) = 50
a(1, 6) = 60


a(2, 1) = 10
a(2, 2) = 20
a(2, 3) = 30
a(2, 4) = 40


x = UBound(a, 1) - LBound(a, 1)
y = UBound(a, 2) - LBound(a, 2)


MsgBox y & " :  " & x   ' // With this I'm getting 6 : 2


End Sub

I'm looking for an output :

x1 = 6
x2 = 4

Regards
~M

 

[RoryA]

Why do you expect 6 and 4?

 

[mandukes]

Why do you expect 6 and 4?

Because I want to know the length, so that I can loop through. Is it possible ?

Thanks

 

[RoryA]

What do you mean by the length? Unless you added an Option Base 1 statement, your array has 3 'rows' and 7 'columns'. What does the number 4 have to do with looping through either of those?

 

[mandukes]

What do you mean by the length? Unless you added an Option Base 1 statement, your array has 3 'rows' and 7 'columns'. What does the number 4 have to do with looping through either of those?

I posted just an example :

Row 1 has 6 elements
Row 2 has 4 elements

So, I was looking for a method to get the same.

 

[RoryA]

Row 2 actually has 6 elements - the 2 you didn’t assign have the default integer value (0). You have to loop through all of them, or use an array of arrays instead of a 2D array.