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

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

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

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

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