返回一个 Range 对象,该对象代表活动工作表中的所有单元格。如果活动文档不是工作表,则本属性无效。只读。
expression.Cells
expression 必需。该表达式返回一个 Application 对象。
返回一个 Range 对象,该对象代表指定单元格区域中的单元格。只读。
expression.Cells
expression 必需。该表达式返回一个 Range 对象。
返回一个 Range 对象,该对象代表工作表(不仅仅是当前使用的单元格)中的所有单元格。只读。
expression.Cells
expression 必需。该表达式返回一个 Worksheet 对象。
因为 Item 属性是 Range 对象的默认属性,所以可在 Cells 关键字后直接指定行号和列标。有关详细信息,请参阅 Item 属性及本帮助主题的示例。
使用本属性时,如果不指定对象识别符,则本属性将返回代表活动工作表中所有单元格的 Range 对象。
本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
本示例清除 Sheet1 上第一个单元格的公式。
Worksheets("Sheet1").Cells(1).ClearContents
本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。
With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With
本示例在 Sheet1 上的单元格区域 A1:J4 中循环,将其中小于 0.001 的值替换为 0(零)。
For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex
本示例将 Sheet1 上单元格区域 A1: C5 的字体样式设置为斜体。
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
本示例搜索列“myRange”中的数据。如果发现某单元格的值与上面的一个单元格的值相等,则本示例将显示这个包含重复数据的单元格的地址。
Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n