Worksheet.Range 屬性 (Excel)

會傳回代表儲存格或儲存格範圍的 Range 物件。

語法

運算式。範圍 (儲存格 1、 儲存格 2)

運算式 代表 Worksheet 物件的變數。

參數

備註

Cell1 與 Cell2 可以是巨集語言中的 A1 樣式參照。 範圍參照可以包含範圍運算子 (冒號)、交集運算子 (空格) 或聯集運算子 (逗號)。 也可以包含貨幣符號 (會遭到忽略)。 本機定義名稱可以是範圍參照。 如果使用名稱，則會假設該名稱使用的是巨集語言。

Cell1 與 Cell2 可以是 Range物件，其中可包含單一儲存格、欄、列或任何其他儲存格範圍。

通常， 儲存格 1 和 儲存格 2 是位於所傳回範圍左上角和右下角的單一儲存格。

在沒有物件限定詞的情況下使用時，此屬性是 ActiveSheet.Range 的快速鍵， (它會從使用中的工作表傳回範圍;如果使用中的工作表不是工作表，屬性會失敗) 。

當此屬性套用於 Range 物件時，則此屬性是相對於 Range 物件而言。 例如，如果選取範圍是儲存格 C3Selection.Range("B1")，則會傳回儲存格 D3，因為它是相對於 Selection 屬性傳回的 Range 物件。 另一方面，程式碼 ActiveSheet.Range("B1") 一律會傳回儲存格 B1。

範例

這個範例會將 Sheet1 中 A1 儲存格的值設定為 3.14159。

Worksheets("Sheet1").Range("A1").Value = 3.14159

這個範例會在 Sheet1 的 A1 儲存格中建立公式。

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

此範例會在使用中活頁簿的 Sheet1 上的儲存格 A1：D10 上迴圈。 如果其中有一個儲存格的值小於 0.001，這段程式碼將用 0 (零) 來取代該值。

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

此範例迴圈名為 TestRange 的範圍，並顯示範圍中空白儲存格的個數。

numBlanks = 0 
For Each c In Range("TestRange") 
 If c.Value = "" Then 
 numBlanks = numBlanks + 1 
 End If 
Next c 
MsgBox "There are " & numBlanks & " empty cells in this range"

本範例會將使用中活頁簿上 Sheet1 儲存格 A1：C5 的字型樣式設為斜體。 在這個範例中，會使用 Range 屬性的語法 2。

With Worksheets("Sheet1")
	.Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True
End With

此範例會比較 Worksheet.Range 屬性、 Application.Union 方法及 Application.Intersect 方法。

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
 Range("A1, A10").Select                          'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
 Range("A1:A5 A5:A10").Select                     'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。