使用 Range 属性
通过在两个或多个引用之间插入逗号，可使用 Range 属性引用多个区域。以下示例清除了 Sheet1 上三个区域的内容。
Sub ClearRanges()
Worksheets(\ ClearContents End Sub
命名区域使得用 Range 属性处理多个区域更加容易。以下示例可在所有这三个命名区域处于同一工作表时运行。
Sub ClearNamed()
Range(\End Sub
使用 Union 方法
使用 Union 方法可将多个区域组合到一个 Range 对象中。以下示例创建了名为 myMultipleRange 的 Range 对象，并将其定义为区域 A1:B2 和 C3:D4 的组合，然后将该组合区域的字体设置为加粗。 Sub MultipleRange()
Dim r1, r2, myMultipleRange As Range
Set r1 = Sheets(\ Set r2 = Sheets(\ Set myMultipleRange = Union(r1, r2) myMultipleRange.Font.Bold = True End Sub
使用 Areas 属性
可用 Areas 属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目，如果有多个块，就显示一则警告消息。 Sub FindMultiple()
If Selection.Areas.Count > 1 Then MsgBox \不能对多个选区进行操作.\ End If End Sub
处理三维区域
如果要处理若干工作表上相同位置的单元格区域，可用 Array 函数选定两张或多张工作表。下例设置三维单元格区域的边框格式。 Sub FormatSheets()
Sheets(Array(\ Range(\
Selection.Borders(xlBottom).LineStyle = xlDouble End Sub
下例应用 FillAcrossSheets 方法，将 Sheet2 上的区域中的格式和所有数据传送到活动工作簿中所有工作表上的相应区域。 Sub FillAll()
Worksheets(\
.Borders(xlBottom).LineStyle = xlDouble
Worksheets.FillAcrossSheets (Worksheets(\ .Range(\End Sub