Application.Range 属性 (Excel)

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

语法

表达式。Range (Cell1、 Cell2)

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