Excel一键计算指定列中非空单元格的个数

1、本教程以下列Excel文档为例。

2、插入一个ActiveX控件，作为启动代码的控制器，如图所示。

PS：找到命令的话，可以参考以下链接：

3、绘制好控件之后，鼠标右键单击该控件，在弹出的菜单中选择查看代码。

4、此时会跳转到VBA界面，并弹出一个代码窗口。

5、在代码窗口中复制粘贴以下代码：

Private Sub CommandButton1_Click()

Dim i%, j%, k%

Dim rng As Range

    i = ActiveCell.Row

    j = ActiveCell.Column

    Cells(i, j).EntireColumn.Select

    Set rng = Selection

    k = Application.CountA(rng)

    MsgBox k

End Sub

6、点击VBA窗口右上角的关闭按钮，关闭VBA窗口，回到Excel窗口。

7、将鼠标光标放在需要计算单元格所在列的任一单元格，单击控件按钮即可计算该列非空单元格个数。