Filling an aray via vba

Hello,

I am trying to learn some things about arrays. Can someone help me to make an understandable simple VBAcode. In column B I have some names, and in colum A I see the number of times these names have to be copied.
In Range A2:F4 you 'll see the output as it should be. I found below mentioned VBA on internet, but I don't see how I can adapt this VBA to my situation.

Sub From_sheet_make_array()
      Dim MyArray As Variant
      MyArray = Range("B2:B5").Value

      'Looping structure to look at array.
      For i = 1 To UBound(MyArray)
        MsgBox MyArray(i, 1)
      Next
End Sub

FillingArraysViaVBA.xlsb

Thanks for your help/Excelbat

PHP Code: 

Sub Demo()
        VA = Blad1.Cells(1).CurrentRegion.Value
    For R& = 2 To UBound(VA)
        Blad1.Cells(R, 6).Resize(, VA(R, 1)).Value = VA(R, 2)
    Next
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

Hi everyone,

@shg: Yes, this is a vba exercise.
@Marc L #3: Thanks for your answer. This is what I looked for. This code is really understandable.
@Marc L #4: De nouveau merci beaucoup pour votre aide. But this one is far beyond my level of VBA-knowledge. This one is really hard to understand.

For others readers of this topic: I try to learn as much as I can from VBA and arrays, and every solution (simple, please) is welcome.

Thanks/Excelbat

Thanks for the rep' !

To understand post #4, you need some Excel worksheet basics !

An single array is written in an Excel formula like : {1,2,3} or {"A","B","C"} …

A two dimensions array is written like {1,2,3;"A","B","C"} …

Read the help of the powerful VBA Evaluate method !

In VBA, an single array can be written like AR = [{1,2,3}] and a two dimensions like AR = [{1,2,3;"A","B","C}] …

Place a break point around the end of my post #4 code and
in Locals window see T variable value and expand VA variable …

To well understand array and Evaluate method, from that :

PHP Code: 

Sub Demo2a()
    With Blad1
        With .Cells(1).CurrentRegion
            C& = Application.Max(.Columns(1).Value)
            R& = .Rows.Count - 1
        End With
        With .[F2].Resize(R, C)
             .Formula = "=IF(COLUMN()-6<$A2,$B2,"""")"
             .Formula = .Value
        End With
    End With
End Sub 


to this :

PHP Code: 

Sub Demo2b()
    With Blad1
        With .Cells(1).CurrentRegion.Rows
                R& = .Count - 1
            With .Item("2:" & .Count).Columns
                C& = Application.Max(.Item(1).Value)
                A$ = .Item(1).Address & "," & .Item(2).Address
            End With
        End With
        With .[F2].Resize(R, C)
             .Value = .Parent.Evaluate("IF(COLUMN(" & .Address & ")-6<" & A & ","""")")
        End With
    End With
End Sub