Excel一键计算所选区域内非空单元格个数

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窗口，框选区域，然后点击控件按钮即可计算所选区域非空单元格个数。