Tworzenie tablicy z zakresu w VBA

Question

Mam pozornie podstawowy problem, ale nie mogę znaleźć żadnych zasobów adresujących go.

Po prostu chcę tylko załadować zawartość zakresu komórek (wszystkie kolumny) do tablicy.

jestem w stanie tego dokonać za pomocą

DirArray = Array(Range("A1"), Range("A2")) 

Ale z jakiegoś powodu, nie mogę utworzyć tablicę gdy wyrażona w ten sposób:

DirArray = Array(Range("A1:A2")) 

Mój prawdziwy zakres jest znacznie dłuższy (i może mieć różną długość), więc nie chcę pojedynczo wyliczać komórek w ten sposób. Czy ktoś może mi powiedzieć, jak prawidłowo załadować cały zakres do tablicy?

Z drugiej kodu:

MsgBox UBound(DirArray, 1) 

I

MsgBox UBound(DirArray) 

return 0, natomiast z byłego wrócą 1.

Answer 1

Wystarczy zdefiniować zmienną jako wariant, i uczynić je równe:

Dim DirArray As Variant 
DirArray = Range("a1:a5").Value 

Nie ma potrzeby użycia polecenia Array.

Answer 2

Korzystanie z Value2 daje korzyści wydajności. Zgodnie Charles Williams blog

Range.Value2 działa w ten sam sposób jak Range.Value, oprócz tego, że nie sprawdza format komórek i konwersji do daty lub waluty. I to pewnie dlatego jest szybsze niż .Value przy pobieraniu liczb.

Więc

DirArray = [a1:a5].Value2