Worksheet.Cells 属性 (Excel)

返回一个 Range 对象，该对象表示工作表上的所有单元格 (而不仅仅是当前正在使用) 的单元格。

语法

expression.Cells

表达 一个代表 Worksheet 对象的变量。

备注

Range 的默认成员将包含参数的调用转发至 Item 属性，因此，可以将行和列索引指定在紧跟 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

在本示例中，双击数据区域中的任何单元格可在升序和降序之间进行切换。 根据双击的单元格的列对数据进行排序。

Option Explicit
Public blnToggle As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LastColumn As Long, keyColumn As Long, LastRow As Long
    Dim SortRange As Range
    LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    keyColumn = Target.Column
    
    If keyColumn <= LastColumn Then
    
        Application.ScreenUpdating = False
        Cancel = True
        LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
        Set SortRange = Target.CurrentRegion
        
        blnToggle = Not blnToggle
        If blnToggle = True Then
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
        Else
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
        End If
    
        Set SortRange = Nothing
        Application.ScreenUpdating = True
        
    End If
End Sub

本示例浏览活动工作表的 C 列，对于每个具有批注的单元格，它将注释文本放入 D 列，并从 C 列中删除批注。

Public Sub SplitCommentsOnActiveSheet()
   'Set up your variables
   Dim cmt As Comment
   Dim rowIndex As Integer
   
   'Go through all the cells in Column C, and check to see if the cell has a comment.
   For rowIndex = 1 To WorksheetFunction.CountA(Columns(3))
      Set cmt = Cells(rowIndex, 3).Comment
      If Not cmt Is Nothing Then
      
         'If there is a comment, paste the comment text into column D and delete the original comment.
         Cells(rowIndex, 4) = Cells(rowIndex, 3).Comment.Text
         Cells(rowIndex, 3).Comment.Delete
      End If
   Next
End Sub

支持和反馈

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