Цей приклад ілюструє Збір територій в Excel VBA. Нижче ми облямовували діапазон ("B2: C3, C5: E5"). Цей діапазон має дві області. Кома розділяє дві області.
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. Спочатку ми оголошуємо два об’єкти Range. Ми називаємо об'єкти Range rangeToUse і singleArea.
Dim rangeToUse As Range, singleArea As Range
2. Ми ініціалізуємо об'єкт Range rangeToUse за допомогою Range ("B2: C3, C5: E5")
Встановити rangeToUse = Діапазон ("B2: C3, C5: E5")
3. Щоб підрахувати кількість областей rangeToUse, додайте такий рядок коду:
MsgBox rangeToUse.Areas.Count
Результат:
4. Ви можете звернутися до різних областей rangeToUse, використовуючи значення індексу. У наступному рядку коду підраховується кількість клітинок першої області.
MsgBox rangeToUse.Areas (1) .Count
Результат:
5. Ви також можете прокрутити кожну область rangeToUse і порахувати кількість клітинок кожної області. Макрос нижче робить трюк.
Для кожної окремої області в діапазоніToUse.Areas
MsgBox singleArea.Count
Наступна сингл -зона
Результат:
Для практичного прикладу збору територій див. Нашу прикладну програму порівняння діапазонів.