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

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

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

3、鼠标右键选中绘制好的控件，选择查看代码。

4、此时会自动跳转到VBA界面，同时会弹出一个代码窗口。

5、在代码窗口中粘贴以下代码：Private Sub CommandButton1_C盟敢势袂lick()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、单击控件，即可计算出鼠标光标所在行中非空单元格的个数，并会弹出显示该结果。