參照多個範圍

您可以使用適當的方法，輕鬆地參照多個範圍。 例如，使用 Range 和 Union 方法，即可參照任何範圍群組。 而使用 Areas 屬性，則可以參照工作表上選取的範圍群組。

使用 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 方法

您可以使用 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 支援與意見反應。