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 kEnd Sub

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

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