Dieses Beispiel zeigt die Bereiche Sammlung in Excel VBA. Im Folgenden haben wir Range ( „: C3, C5: E5 B2“) begrenzt. Dieser Bereich hat zwei Bereiche. Das Komma trennt die beiden Bereiche.

Areas Collection in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir zwei Range-Objekte. Wir rufen die Range-Objekte rangeToUse und singleArea.

Dim rangeToUse As Range, singleArea As Range

  1. Wir initialisieren das Range-Objekt rangeToUse mit Range ( „B2: C3, C5: E5“)

Set rangeToUse = Range("B2:C3,C5:E5")

  1. Um die Anzahl der Bereiche von rangeToUse, fügen Sie die folgende Codezeile zu zählen:

MsgBox rangeToUse.Areas.Count

Ergebnis:

Count Areas

  1. Sie können unter Verwendung der Indexwerte zu den verschiedenen Bereichen der rangeToUse beziehen. Die folgende Codezeile zählt die Anzahl von Zellen des ersten Bereichs.

MsgBox rangeToUse.Areas(1).Count

Ergebnis:

Count Cells

  1. Sie können auch eine Schleife durch jeden Bereich rangeToUse und die Anzahl der Zellen jeden Bereich zählen. Das Makro unten funktioniert der Trick.

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

Ergebnis:

Count Cells

Count Cells

Ein praktisches Beispiel der Sammelgebiete finden Sie in unserem Beispielprogramm Vergleichen Ranges.