Worksheet.Range 属性 (Excel)
返回一个 Range 对象,它表示一个单元格或单元格区域。
语法
表达式。Range (Cell1、 Cell2)
表达 一个代表 Worksheet 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Cell1 | 必需 | Variant | 使用一个参数时,则是用作区域引用的 String。 一个用作区域引用的 String;使用两个参数时,则为 Range 对象。 |
Cell2 | 可选 | Variant | 一个用作区域引用的 String 或一个 Range 对象。 Cell2 定义属性返回的另一区域极限。 |
备注
Cell1 和 Cell2 可为宏语言中的 A1 样式引用。 区域引用可包含区域运算符(冒号)、交集运算符(空格)或联合运算符(逗号)。 它们还可包含美元符号(这些符号将被忽略)。 本地定义的名称可为区域引用。 如果使用名称,则假定该名称采用宏语言。
Cell1 和 Cell2 可为包含单个单元格、列、行或任何其他单元格区域的 Range 对象。
通常, Cell1 和 Cell2 是返回区域的左上角和右下角的单个单元格。
如果在没有对象限定符的情况下使用,此属性是 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。