1、本教程以下列数据为例。
2、若打开的Excel文档后缀名为xlsx，可以先另存为一份启用宏的工作簿，后缀名为xlsm。
3、首先插入一个ActiveX控件，作为启动代码的控制器。本教程以插入一个命令按钮控件为例。
4、鼠标右键单击绘制好的控件，在弹窗的菜单中，单击查看代码，如图所示。
5、此时会自动跳转进入VBA窗口，如图所示。
6、在代码窗口粘贴以下代码：
Private Sub CommandButton1_Click()
Dim k%
Dim rng As Range
Set rng = Selection
For Each rng In Selection
If rng.Value <> "" Then
k = k + 1
Else
End If
Next
MsgBox ("框选区域中非空单元格个数为" & k)
End Sub
7、关闭VBA界面，回到Excel窗口，框选区域，然后点击控件按钮即可计算所选区域非空单元格个数。
