Wybrany wiersz z tablicy Array

Na ostatnim szkoleniu padło pozornie proste pytanie: w jaki sposób pobrać jeden wybrany wiersz tablicy Array i zwrócić go w całości do wskazanego wiersza arkusza Excel?

Oto i rozwiązanie, w którym tworzona jest dwuwymiarowa tabela Array 10x10 (wypełniona następnie kolejnymi wartościami). Następnie korzystając z funkcji arkuszowej Index pobieramy 5 wiersz bazowej tablicy Array (w wyniku czego tworzona jest tablica pośrednia), która trafia do kolejnych komórek arkusza względem bieżącej komórki aktywnej.

view sourceprint?

01	Sub WybranyWierszArray()

02

03	Dim TBL(10, 10) As Variant

04	Dim i!, j!

05

06	For i = 1 To 10

07	For j = 1 To 10

08	TBL(i, j) = i * 10000 + j

09

Next j

10

Next i

11

12	Dim TBLSliced As Variant

13	TBLSliced = WorksheetFunction.Index(TBL, 5, 0)

14

15	ActiveCell.Resize(1, UBound(TBLSliced, 1)) = TBLSliced

16

End Sub