Range.Cells 属性 (Excel)

返回一个 Range 对象，它表示指定区域中的单元格。

注意

有兴趣开发跨多个平台扩展 Office 体验的解决方案吗？ 查看新的 Office 外接程序模型。 与VSTO外接程序和解决方案相比，Office外接程序占用的空间较小，您可以使用几乎任何Web编程技术（例如HTML5，JavaScript，CSS3和XML）来构建它们。

语法

expression.Cells

expression 一个表示 Range 对象的变量。

说明

返回值为由单个单元格组成的 Range，它允许结合使用 Item 版本与两个参数，并让 For Each 循环遍历单个单元格。

Range 的默认成员将包含参数的调用转发至 Item 属性，因此，可以将行和列索引指定在紧跟 Cells 关键字之后，而不是显式调用 Item。

如果使用 Cells 但不使用对象限定符，则等效于 ActiveSheet.Cells。

示例

本示例将活动工作簿 Sheet1 中单元格 B2:D6 的字体样式设置为斜体。

With Worksheets("Sheet1").Range("B2:Z100") 
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True
End With

此示例会扫描名为 myRange 的一列数据。 如果某单元格与紧接在其前面的单元格的值相同，则该示例显示包含重复数据的单元格的地址。

Set r = Range("myRange") 
For n = 2 To r.Rows.Count 
    If r.Cells(n-1, 1) = r.Cells(n, 1) Then 
        MsgBox "Duplicate data in " & r.Cells(n, 1).Address 
    End If 
Next

本示例演示 Cells 如何改变 Item 成员的行为。

Public Sub PrintRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:Z100").Columns
   
   Debug.Print columnsRange.Item(2).Address         'Prints "$C$2:$C$100" 
   Debug.Print columnsRange.Cells.Item(2).Address   'Prints "$C$2" 
   Debug.Print columnsRange.Cells.Item(2,1).Address 'Prints "$B$3"   
End Sub

本示例演示 Cells 如何更改枚举行为。

Public Sub PrintAllRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:C3").Columns
   
   Dim columnRange As Excel.Range
   For Each columnRange In columnsRange
      Debug.Print columnRange.Address   'Prints "$B$2:$B$3", "$C$2:$C$3"
   Next
   
   Dim cell As Excel.Range
   For Each cell In columnsRange.Cells
      Debug.Print cell.Address          'Prints "$B$2", "$C$2", "$B$3", "$C$3"
   Next  
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。