基于VBA技术实现一键计算某行非空单元格个数。本教程通过一个殂翼瑟擀实例，实现一键计算鼠标所在单元格所在行中非空单元格的个数。
工具/原料
Excel
教程以Excel2013为例
方法/步骤
1、本教程以下列数据为例，实现功能：通过点击按钮，计算出鼠标光标所在行中非空单元格的个数。
2、插入一个ActiveX控件，该命令位置可以参考以下链接：
3、鼠标右键选中绘制好的控件，选择查看代码。
4、此时会自动跳转到VBA界面，同时会弹出一个代码窗口。
5、在代码窗口中粘贴以下代码：PrivateSubCommandButton1_C盟敢势袂lick()Dimi%,j%,k%肛舀辨乔DimrngAsRangei=ActiveCell.Rowj=ActiveCell.ColumnCells(i,j).EntireRow.SelectSetrng=Selectionk=Application.CountA(rng)MsgBox("该行非空单元格个数为"&k)EndSub
6、点击右上角的关闭按钮，关闭VBA窗口，回到Excel窗口。
7、单击控件，即可计算出鼠标光标所在行中非空单元格的个数，并会弹出显示该结果。
