通过

引用多个区域

通过使用适当的方法，你可以轻松引用多个区域。 使用 Range 和 Union 方法来引用任何区域组。 使用Range属性来引用工作表上选择的区域组。

使用 Range 属性

通过在两个或多个引用之间插入逗号，使用 Range 属性引用多个区域。 以下示例清除了 Sheet1 上三个区域的内容。

Sub ClearRanges() 
 Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _ 
 ClearContents 
End Sub

命名区域使得用 Range 属性处理多个区域更加容易。 以下示例描述全部三个已命名的区域位于同一工作表时的情况。

Sub ClearNamed() 
 Range("MyRange, YourRange, HisRange").ClearContents 
End Sub

使用联合方法

可以使用 Union 方法将多个区域合并为一个 Range。 以下示例创建名为myMultipleRange的Range对象，定义为区域 A1:B2 和 C3:D4，然后将组合区域格式化为粗体。

Sub MultipleRange() 
 Dim r1 As Range, r2 As Range, myMultipleRange As Range 
 Set r1 = Sheets("Sheet1").Range("A1:B2") 
 Set r2 = Sheets("Sheet1").Range("C3:D4") 
 Set myMultipleRange = Union(r1, r2) 
 myMultipleRange.Font.Bold = True 
End Sub

使用 Areas 属性

使用 Areas 属性来引用所选区域或多区域选定中的区域集。 以下过程将计数选定区域。 如果有多个区域，将显示一条警告消息。

Sub FindMultiple() 
 If Selection.Areas.Count > 1 Then 
 MsgBox "Cannot do this to a multiple selection." 
 End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。