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

       基于VBA手艺实现一键计较某行非空单位格个数。本教程经由过程一个实例，实现一键计较鼠标地点单位格地点行中非空单位格的个数。

东西/原料

• Excel
• 教程以Excel2013为例

方式/步调

1. 1

   本教程以下列数据为例，实现功能：经由过程点击按钮，计较出鼠标光标地点行中非空单位格的个数。

   
2. 2

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

   34插入控件技巧

   
3. 3

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

   
4. 4

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

   
5. 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. 6

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

   
7. 7

   单击控件，即可计较出鼠标光标地点行中非空单位格的个数，并会弹出显示该成果。

   

注重事项

• 若是对您有点帮忙，请帮手点个赞再走，感谢！