In diesem Tutorial wird gezeigt, wie Sie ein Array mit einem Zellbereich füllen.
Bereich dem Array zuweisen
Wir können ein Variant-Array leicht mit einem Bereich von Zellen füllen.
Wert aus einer einzelnen Spalte zuweisen
Dieses Beispiel durchläuft Range("A1:A10") und weist die Zellenwerte einem Array zu:
| 12345678910111213 | Unter TestArrayValuesSingle()'Array als Variantenarray deklarierenDim arRng() als Variante'Deklarieren Sie die ganze Zahl, um die Anzahl der Zeilen zu speichernDim iRw As Integer'Bereich einer Array-Variablen zuweisenarRng = Bereich("A1:A10")'Schleife durch die Reihen - 1 bis 10Für iRw = 1 zu UBound(arRng)'Ergebnis im Direktfenster anzeigenDebug.Print arRng(iRw , 1)Nächster iRwEnd Sub |
Die UBound wird verwendet, um die obere Grenze des Arrays (zB 10) zu setzen, damit die Schleife weiß, dass sie 10 Mal durchlaufen wird.
DieDebug.Drucken -Funktion zeigt Ihnen den im Array enthaltenen Wert im unmittelbaren Fenster an.
Wert aus mehreren Spalten zuweisen
| 123456789101112131415161718 | Unter TestArrayValuesMultiple()'Array als Variantenarray deklarierenDim arRng() als Variante'Deklarieren Sie die ganze Zahl, um die Anzahl der Zeilen zu speichernDim iRw As Integer'Deklarieren Sie die ganze Zahl, um die Anzahl der Spalten zu speichernDim iCol als Integer'Bereich einer Array-Variablen zuweisenarRng = Bereich("A1:C10")'Schleife durch die Reihen - 1 bis 10Für iRw = 1 zu UBound(arRng,1)'jetzt - während Sie in Zeile 1 sind, durchlaufen Sie die 3 SpaltenFür iCol = 1 zu UBound(arRng,2)'Ergebnis im Direktfenster anzeigenDebug.Print arRng(iRw, iCol)Nächster iColNächster iRwEnd Sub |
Im obigen Code haben wir das Array mit den Werten in Range("A1:C10") gefüllt.
Die UBound wird wieder verwendet - aber diesmal wird es zweimal benötigt - einmal, um die Zeilen zu durchlaufen, und dann erneut, um die Spalten zu durchlaufen.
Die Debug.Drucken -Funktion zeigt Ihnen den im Array enthaltenen Wert im unmittelbaren Fenster an.
