add one dimension to array

yes sir haha

Array2=application.transpose(y)

Converts 1D array to 1 Based 2D array.

hi
sorry for that but i still dont understand this method(only when paste vertical to horizontal and vice versa)
can u show me the full code to convert one dimension array to 2D?
column A is identifier(one number) and the the B column(same row) is data breaks by commas(1,4,3,2,4,0,0,0,3,2...)
i just want for each of those rows to make column A as the first dimension(the number of elements is the rows number) and the second dimension is the data in column B

Ahhh, you want it as

Array2(0,i)=Y(i)

But why do you need it so?

Transpose will give you

Array2(i,1)=Y(i)

So this is not what you want.

I don't understand why you need it an array...

I would do like

    With Range("b1", Range("b" & Rows.Count).End(xlUp))
        MsgBox Split(.Cells(3, 1), ",")(5)
    End With

i heard that arrays works much faster than others methods
actually it's a game results
each row is a player
the "1,3,2,4,0,3,2,..." (column B) is the answers of the player for each question
finally i want to know the percentages for each answer for each question
after i got an array(x,y) ; x-index of player ; y-all the answers
i'll be able to continue with the calculations(and there are a lot of games)

It depends how you use it.
In your case, it is not much difference.

the issue is that i need that array for calculation
simple example: only one game, only 4 players,only 4 questions,only 4 answers for each question:
after i get the array i want to do:

ub = UBound(Y())
a1 = 0: a2 = 0: a3 = 0: a4 = 0
For Q = 0 To ub '_________its the index of the questions
For P0 = 0 To P '_________actually its the rows(the players)
Answer = Array(P0, Q) '________ actually its Array(Player, question_index)
If Answer = 1 Then
a1 = a1 + 1
ElseIf Answer = 2 Then
a2 = a2 + 1
ElseIf Answer = 3 Then
a3 = a3 + 1
ElseIf Answer = 4 Then
a4 = a4 + 1
End If
Next P0 '______next row(player)
Result(Q, 0) = a1 'now its assign to new array the how many respond to each answer of the question
Result(Q, 1) = a2
Result(Q, 2) = a3
Result(Q, 3) = a4
Next Q

If you upload a workbook with data and the result taht you want, it may help understanding what you are trying to do.
However, reading your code is not understandable.

If you know about array, you should have loaded the data with loop or even manually, because it is 0 based.
So how would I know what you want to do?

ok...i think i got it
the issue was because i have to declare number of elements to the array...something with "Redim"

Sub game()

Dim Q() As String
Dim Player, i, UB As Variant
Player = -1
Row = 2
Q_No = Split(Range("B" & Row), ",")
UB = UBound(Q_No)
ReDim Answer(400, UB) As String
     Do While Range("A" & Row) = Range("A" & (Row - 1))
             Player = Player + 1
             Q() = Split(Range("B" & Row), ",")
             For i = 0 To UB
             Answer(Player, i) = Q(i)
    
             Next i
             Row = Row + 1
     Loop

MsgBox Answer(399, 32)

MsgBox Answer(398, 31)

End Sub

its not clean but it work now (based on my worksheet data)

Thanks u for the effort