Application.Range 属性 (Excel)

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

语法

表达式Range (Cell1Cell2)

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