Count 属性

应用于 Adjustments、CanvasShapes、DiagramNodeChildren、DiagramNodes 和 ShapeNodes 对象的 Count 属性。

返回指定集合中对象的数目。Integer 类型，只读。

expression.Count

expression 必需。该表达式返回上面的对象之一。

应用于“应用于”列表中的其他所有对象的 Count 属性。

返回指定集合中对象的数目。Long 类型，只读。

expression.Count

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例显示 Sheet1 上选定区域中的列数。本示例还将检测选定区域中是否包含多重选定区域，如果包含，则对多重选定区域中每一子区域进行循环。

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Columns.Count & " columns."
Else
    For i = 1 To areaCount
        MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
    Next i
End If

本示例将 A1 单元格的最后一个字符设为上标字符。

n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1").Characters(n, 1) _
    .Font.Superscript = True