Ten samouczek pokaże, jak wyprowadzić tablicę do zakresu za pomocą VBA.
Wyjście (drukowanie) Tablica do zakresu
Dane przechowywane w tablicy można łatwo wyprowadzić do arkusza Excel. Są na to 3 sposoby.
Dane wyjściowe do innego zakresu
Moglibyśmy wypełnić tablicę danymi z jednego zakresu w programie Excel, a następnie wyprowadzić dane do innego zakresu w programie Excel.
| 12345678 | Publiczne podrzędne wyjście testowe()'deklaruj tablicęDim rnArray() jako wariant'wypełnij tablicę zakresemrnArray = Zakres("A1:H24")'wyprowadź tablicę do innego zakresu komórekZakres("J1:Q24") = rnArray()Napis końcowy |
Cała tablica jest kopiowana w jednym wierszu kodu do tablicy, a następnie w całości wyprowadzana do innego zakresu komórek w arkuszu.
Zapętlanie przez macierz i wysyłanie danych
Ten przykład zapętli tablicę, wyprowadzając tablicę do zakresu.
| 12345678910111213 | Publiczna podrzędna tablica testowa pętli()'deklaruj tablicęDim rnArray() jako wariant'Zadeklaruj liczbę całkowitą do przechowywania liczby wierszyDim iRw jako liczba całkowita'Przypisz zakres do zmiennej tablicowejrnArray = Zakres("A1:A10")'przewijaj wartości w tablicyDla iRw = LBound(rnArray) To UBound(rnArray)'wypełnij inny zakres danymi'Komórki(iRw, 2)). Wartość = rnArray(iRw, 1)Następny iRwNapis końcowy |
LBoundoraz UBoundzwraca indeks początkowy (dolna granica) i indeks końcowy (górna granica) tablicy, w tym przypadku 1 i 10.
Transpozycja danych tablicy
Możemy również transponować dane z tablicy do arkusza Excel. Transpozycja umożliwia wyświetlanie danych w poziomie w arkuszu Excel.
Na przykład, jeśli mamy listę stanów w Excelu i chcemy je transponować.
Moglibyśmy wtedy uruchomić następujący kod:
| 12345678 | Public Sub TestOutputTranspose()'deklaruj tablicęDim rnArray() jako wariant'wypełnij to zakresemrnArray = Zakres("A1:A38")„przetransponować dane”Range(Cells(1, 3), Cells(1, 40)).Value = Application.Transpose(rnArray)Napis końcowy |
Co skutkowałoby następującym:
Wyjście do debugowania. Drukuj
Możemy również wyprowadzić wartości tablicy do okna debugowania.
| 12345678910111213 | Publiczna podrzędna tablica testowa pętli()'deklaruj tablicęDim rnArray() jako wariant'Zadeklaruj liczbę całkowitą do przechowywania liczby wierszyDim iRw jako liczba całkowita'Przypisz zakres do zmiennej tablicowejrnArray = Zakres("A1:A10")„przewijaj rzędy od 1 do 10”Dla iRw = 1 To UBound(rnArray)„wyjście do bezpośredniego okna”Debug.Print rnArray(iRw, 1)Następny iRwNapis końcowy |
