地区集合

这个例子说明了地区收集在Excel中VBA。下面是边界Range（“ B2：C3，C5：E5”）。此范围有两个区域。逗号将两个区域分开。

在您的工作表上放置一个命令按钮，并添加以下代码行：

1.首先，我们声明两个Range对象。我们将Range对象称为rangeToUse和singleArea。

2.我们使用Range（“ B2：C3，C5：E5”）初始化Range对象rangeToUse

3.要计算rangeToUse的区域数，请添加以下代码行：

结果：

4.您可以通过使用索引值来引用rangeToUse的不同区域。以下代码行计算第一个区域的像元数。

结果：

5.您还可以遍历rangeToUse的每个区域并计算每个区域的单元格数量。下面的宏可以解决问题。

结果：

有关Areas集合的实际示例，请参见示例程序Compare Ranges。