Excel) (Application.Range 屬性

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

語法

運算式。Range (Cell1、 Cell2)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Cell1	必要	Variant	範圍的名稱。 名稱必須是和巨集使用相同語言的 A1 樣式參照。 名稱可以包含範圍運算子 (冒號)、交集運算子 (空格) 或聯集運算子 (逗號)。 它也可以包含貨幣符號，但會被忽略。 在範圍的任何部分中使用本機定義的名稱。 如果使用名稱，則會假設該名稱和巨集使用相同語言。
Cell2	選用	Variant	位於範圍左上方和右下方的儲存格。 可以是包含單一儲存格、整欄或整列的 Range 物件，也可以是使用巨集語言為單一儲存格命名的字串。

註解

在沒有物件辨識符號的情況下使用時，此屬性是 ActiveSheet.Range 的快捷方式 (它會傳回使用中工作表的範圍;如果使用中工作表不是工作表，則屬性會) 失敗。

套用到 Range 物件時，該屬性會與 Range 物件相對應。 例如，如果選取儲存格 C3，則 Selection.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。

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

支援和意見反應

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