How to read an array

For such few data the obvious beginner way is the fast enough Copy method and easiest to maintain :

PHP Code: 

Sub Demo1()
    ShCalc.[B2:B13].Copy Sheet2.[B3]
    ShCalc.[B14:B25].Copy Sheet2.[C3]
    ShCalc.[B26:B37].Copy Sheet2.[D3]
    ShCalc.[B38:B49].Copy Sheet2.[E3]
End Sub 


If only the source values must be allocated to the destination range another easy way to maintain :

PHP Code: 

Sub Demo2()
    Sheet2.[B3:B14] = ShCalc.[B2:B13].Value2
    Sheet2.[C3:C14] = ShCalc.[B14:B25].Value2
    Sheet2.[D3:D14] = ShCalc.[B26:B37].Value2
    Sheet2.[E3:E14] = ShCalc.[B38:B49].Value2
End Sub 


Previous demonstration can be rewritten using a single loop :

PHP Code: 

Sub Demo3()
  Const L = 12
    Dim C%, R&
        C = 1
    For R = 2 To 38 Step L
        C = C + 1
        Sheet2.Cells(3, C).Resize(L) = ShCalc.Cells(R, 2).Resize(L).Value2
    Next
End Sub 


This demonstration allocates the destination range at once with an array :

PHP Code: 

Sub Demo4()
  Const L = 12
    Dim V, R&, S%, T#(1 To L, 1 To 4)
        V = ShCalc.Range("B2", ShCalc.[B1].End(xlDown)).Value2
    For R = 1 To UBound(V)
        S = R Mod L
        T(IIf(S = 0, L, S), R \ L - (S > 0)) = V(R, 1)
    Next
        Sheet2.[B3:E14] = T
End Sub 


Last but not least, a variation of the previous demonstration :

PHP Code: 

Sub Demo5()
    Dim V, R&, S, T#(1 To 12, 1 To 4)
        V = ShCalc.UsedRange.Value2
    For R = 2 To UBound(V)
        S = Split(Mid(V(R, 1), 3), "Q")
        T(S(0), S(1)) = V(R, 2)
    Next
        Sheet2.[B3:E14] = T
End Sub 


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

Thank you All so much for the examples, this is very helpful.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

'Fields' of an array ?‼

Again, nothing to do with any sarcasm but as I never read on any VBA documentation a VBA array has 'fields'
so now the title is more ambiguous than it was, just my opinion …

« How to read an array » is enough …