In diesem Tutorial wird gezeigt, wie Sie ein Array mithilfe von VBA in einen Bereich ausgeben.
Ausgabe (Drucken) Array in Bereich
Daten, die in einem Array gespeichert sind, können einfach in ein Excel-Blatt ausgegeben werden. Es gibt 3 Möglichkeiten, dies zu tun.
Daten in einen anderen Bereich ausgeben
Wir könnten ein Array mit Daten aus einem Bereich in Excel füllen und die Daten dann in einen anderen Bereich in Excel ausgeben.
| 12345678 | Öffentlicher untergeordneter TestOutput()'das Array deklarierenDim rnArray() als Variante'das Array mit dem Bereich füllenrnArray = Bereich("A1:H24")'das Array in einen anderen Zellbereich ausgebenRange("J1:Q24") = rnArray()End Sub |
Das gesamte Array wird in einer Codezeile in das Array kopiert und dann vollständig in einen anderen Zellbereich auf dem Blatt ausgegeben.
Durchlaufen eines Arrays und Ausgabe der Daten
Dieses Beispiel durchläuft ein Array und gibt das Array an einen Bereich aus.
| 12345678910111213 | Öffentliches Sub TestLoopArray()'das Array deklarierenDim rnArray() als Variante'Deklarieren Sie die ganze Zahl, um die Anzahl der Zeilen zu speichernDim iRw As Integer'Bereich einer Array-Variablen zuweisenrnArray = Bereich("A1:A10")'Schleife durch die Werte im ArrayFür iRw = LBound(rnArray) Zu UBound(rnArray)'einen anderen Bereich mit den Daten füllenZellen(iRw, 2).Wert = rnArray(iRw, 1)Nächster iRwEnd Sub |
LBoundund UBoundgibt den Startindex (Lower Bound) und Endindex (Upper Bound) eines Arrays zurück, in diesem Fall 1 und 10.
Array-Daten transponieren
Wir können die Daten im Array auch in das Excel-Blatt übertragen. Mit Transponieren können Sie die Daten horizontal über das Excel-Blatt anzeigen.
Zum Beispiel, wenn wir eine Liste von Zuständen in Excel haben und diese transponieren möchten.
Wir könnten dann den folgenden Code ausführen:
| 12345678 | Öffentlicher UntertestOutputTranspose()'das Array deklarierenDim rnArray() als Variante'mit dem Bereich auffüllenrnArray = Bereich("A1:A38")'Daten transponierenRange(Cells(1, 3), Cells(1, 40)).Value = Application.Transpose(rnArray)End Sub |
Was folgendes ergeben würde:
Ausgabe an Debug.Print
Wir können die Array-Werte auch im Debug-Fenster ausgeben.
| 12345678910111213 | Öffentliches Sub TestLoopArray()'das Array deklarierenDim rnArray() als Variante'Deklarieren Sie die ganze Zahl, um die Anzahl der Zeilen zu speichernDim iRw As Integer'Bereich einer Array-Variablen zuweisenrnArray = Bereich("A1:A10")'Schleife durch die Reihen - 1 bis 10Für iRw = 1 an UBound(rnArray)'Ausgabe in das unmittelbare FensterDebug.Print rnArray(iRw, 1)Nächster iRwEnd Sub |
