Excel的VBA地区收集
这个例子说明在Excel VBA中区集合。下面我们镶上范围（ “B2：C3，C5：E5”）。这个范围包含两个方面。逗号两个领域分离出来。
将工作表上的一个命令按钮并添加以下代码行：
1.首先，我们声明两个Range对象。我们呼吁Range对象rangeToUse和singleArea。
Dim rangeToUse As Range, singleArea As Range
2.我们初始化范围（ “B2：C3，C5：E5”）Range对象rangeToUse
Set rangeToUse = Range("B2:C3,C5:E5")
3.要算rangeToUse区域的数量，添加以下代码行：
MsgBox rangeToUse.Areas.Count
结果：
4.您可以使用索引值是指rangeToUse的不同区域。下面的代码行数，第一区域的细胞数。
MsgBox rangeToUse.Areas(1).Count
结果：
5.你也可以遍历rangeToUse各个地区及计算每个区域的细胞数量。下面的宏的伎俩。
For Each singleArea In rangeToUse.Areas MsgBox singleArea.Count Next singleArea
结果：
比较范围。