Wie füge ich in vba einen gesamten bereich zu einem array hinzu?

Schritte zum Hinzufügen eines Bereichs zu einem Array in VBA

  1. Zuerst müssen Sie ein dynamisches Array mit dem Datentyp „variant“ deklarieren.
  2. Dann müssen Sie eine weitere Variable deklarieren, um die Anzahl der Zellen im Bereich zu speichern und diesen Zähler auch für die Schleife zu verwenden.
  3. Weisen Sie anschließend dem Array den Bereich zu , in dem Sie einen Wert haben.
  4. Von hier aus müssen wir eine Schleife erstellen, um alle Werte im unmittelbaren Fenster auszugeben, damit Sie sehen können, dass alle Werte dem Array zugewiesen sind.
 Sub myArrayRange() Dim iAmount() As Variant Dim iNum As Integer iAmount = Range("A1:A11") For iNum = 1 To UBound(iAmount) Debug.Print iAmount(iNum, 1) Next iNum End Sub

Und wenn Sie den obigen Code ausführen, zeigt er Ihnen alle Werte an, die Sie aus dem Bereich („A1:A11) dem iAmount-Array zugewiesen haben, und druckt sie im unmittelbaren Fenster aus.

show-assigned-values-5

Auf die gleiche Weise können Sie auch ein mehrdimensionales Array verwenden.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) Debug.Print iAmount(iNum1, 1) & " " & iAmount(iNum1, 2) Next iNum1 End Sub

Oder Sie können es auch so machen.

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer Dim iNum2 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) For iNum2 = 1 To UBound(iAmount, 2) Debug.Print iAmount(iNum1, iNum2) Next iNum2 Next iNum1 End Sub

Einen Kommentar hinzufügen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert