excel中，<em>VBA</em>，如何计算被选择的单元格的数量

假设某一区域是A1:D10，填充的内容是"特定zd内容"，如下图：

则VBA代码如下。

Sub MyMacro()
    Dim Rng As Range, c As Range, n As Long
    Set Rng = Range("A1:D10")
    Set c = Rng.SpecialCells(xlCellTypeBlanks)
    n = c.Cells.Count
    c.Value = "特定内容"
    MsgBox "空白单元格的数量是" & n & "个"
End Sub

如下图，运行后专会弹出一个对话框说明空白单元格数据，并填充特定内容，结果如属下图：

比较规范百的写法是:
选中单元格数量=selection.cells.count
count是属度于集合的方法，cells是集合，知而selection不是，但cells是selection的隐藏（缺省）属性。。道。所以selection.count行得通，但不规范。。不规范的书写习版惯害处很多，也不利于代码的阅读权

公式在图中，附件可参考

数组公式，按组合键Ctrl+Shift+Enter三键结束输入

公式：=counta(选择区域)+countblank(选择区域)
注意：如果某个单元格中是 空格，那么counta会统计出来，而countblank不会统计。

本文标签：excel vba 选择单元格(45)vba excel单元格数量(1)