Worksheet.Range 属性 (Excel)

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

语法

表达式Range (Cell1Cell2)

表达 一个代表 Worksheet 对象的变量。

参数

名称 必需/可选 数据类型 说明
Cell1 必需 Variant 使用一个参数时,则是用作区域引用的 String。 一个用作区域引用的 String;使用两个参数时,则为 Range 对象。
Cell2 可选 Variant 一个用作区域引用的 String 或一个 Range 对象。 Cell2 定义属性返回的另一区域极限。

备注

Cell1Cell2 可为宏语言中的 A1 样式引用。 区域引用可包含区域运算符(冒号)、交集运算符(空格)或联合运算符(逗号)。 它们还可包含美元符号(这些符号将被忽略)。 本地定义的名称可为区域引用。 如果使用名称,则假定该名称采用宏语言。

Cell1Cell2 可为包含单个单元格、列、行或任何其他单元格区域的 Range 对象。

通常, Cell1Cell2 是返回区域的左上角和右下角的单个单元格。

如果在没有对象限定符的情况下使用,此属性是 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。

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。