Range.Value 屬性 (Excel)

會傳回或設定 Variant 值，代表指定之範圍的值。

語法

運算式。RangeValueDataType (值)

expression 代表 Range 物件的變數。

參數

名稱	必要/選用	資料類型	描述
RangeValueDataType	選用	Variant	範圍值的資料類型。 可以是 XlRangeValueDataType 常 數。

註解

當設定 XML 試算表檔案內容的某一儲存格範圍，僅使用活頁簿第一張工作表上的值。 您無法設定或取得 XML 試算表格式中不連續的儲存格範圍。

Range的預設成員會將不含參數的呼叫轉送至Value。 因此， someRange = someOtherRange 相當於 someRange.Value = someOtherRange.Value 。

對於第一個區域包含一個以上儲存格的範圍， Value 會傳回 Variant ，其中包含第一個範圍中個別儲存格中值的 2 維陣列。

將 2 暗陣列指派給 Value 屬性，將會在一項作業中將值複製到範圍。 如果目標範圍大於陣列，剩餘的儲存格將會收到錯誤值。

不正確支援將陣列指派給多區域範圍，因此應避免。

範例

本範例會將使用中活頁簿 Sheet1 上儲存格 A1 的值設定為 3.14159。

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

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

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

本範例會迴圈查看 Sheet1 上範圍 A1：CC5000 中的值。 如果其中一個值小於 0.001，程式碼會將值取代為 0 (零) 。 最後，它會將值複製到原始範圍。

Public Sub TruncateSmallValuesInDataArea()
   Dim dataArea As Excel.Range
   Set dataArea = ThisworkBook.Worksheets("Sheet1").Range("A1:CC5000")
   
   Dim valuesArray() As Variant
   valuesArray = dataArea.Value
   
   Dim rowIndex As Long
   Dim columnIndex As Long
   For rowIndex = LBound(valuesArray, 1) To UBound(valuesArray, 1)
      For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)
	     If valuesArray(rowIndex, columnIndex) < 0.001 Then
		    valuesArray(rowIndex, columnIndex) = 0
		 End If 
	  Next
   Next
   
   dataArea.Value = valuesArray
End Sub

支援和意見反應

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