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