Excel一键计算指定行非空单元格个数

1、本教程以下列数据为例，实现功能：通过点击按钮，计算出鼠标光标所在行中非空单元格的个数。

2、插入一个ActiveX控件，该命令位置可以参考以下链接：

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).EntireRow.Select

    Set rng = Selection

    k = Application.CountA(rng)

    MsgBox ("该行非空单元格个数为" & k)

End Sub

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

7、单击控件，即可计算出鼠标光标所在行中非空单元格的个数，并会弹出显示该结果。