通过

Range.Range 属性 (Excel)

  • 项目

返回一个 Range 对象，它表示一个单元格或单元格区域。

语法

表达式。Range (Cell1、 Cell2)

expression 一个表示 Range 对象的变量。

参数

名称 必需/可选 数据类型 说明
Cell1 必需 Variant 区域名称。 必须为采用宏语言的 A1 样式引用。 它可包含区域运算符（冒号）、交集运算符（空格）或联合运算符（逗号）。 它还可以包括美元符号，但它们将被忽略。

在范围的任何部分使用本地定义的名称。 如果使用名称，则假定该名称使用的是宏语言。
Cell2 可选 Variant 区域左上角和右下角的单元格。 可以是一个包含单个单元格、整列或整行的 Range 对象，或者也可以是一个用宏语言为单个单元格命名的字符串。

备注

在没有对象限定符的情况下使用时，此属性是 ActiveSheet.Range 的快捷方式 (它从活动工作表返回一个范围;如果活动工作表不是工作表，则 属性) 失败。

当应用于 Range 对象时，此属性相对于 Range 对象。 例如，如果选择的是单元格 C3，则 Selection.Range("B1") 返回单元格 D3，因为它相对于由 Selection 属性返回的 Range 对象。 另一方面，代码 ActiveSheet.Range("B1") 始终返回单元格 B1。

示例

本示例将活动工作簿工作表 1 上区域 B2：C4 的左上角单元格的值（即单元格 B2 的值）设置为 3.14159。

With Worksheets("Sheet1").Range("B2:C4")
   .Range("A1").Value = 3.14159
End With

本示例循环显示活动工作簿工作表 1 上区域 B2：Z22 左上角的四个单元格。 如果某个单元格的值小于 0.001，则此代码将用 0（零）来取代该值。

Public Sub TruncateSmallValues()
   Dim exampleRange As Excel.Range
   Set exampleRange = Worksheets("Sheet1").Range("B2:Z22") 

   Dim cell As Excel.Range
   For Each cell in exampleRange.Range("A1:B2") 
      If cell.Value < .001 Then 
         cell.Value = 0 
      End If 
   Next cell
End Sub

本示例将活动工作簿 Sheet1 上单元格 B2：D6 中的字体样式设置为斜体。 此示例使用 Range 属性的语法 2。

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

支持和反馈

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