Excel一键计算指定列中非空单元格的个数

       基于VBA手艺和控件操作技巧实现一键计较指心猿意马列种非空单位格的个数（即利用单位格的个数）。本教程经由过程一个简单例子，实现一键计较鼠标光标地点列中非空单位格的个数。

东西/原料

• Excel
• 教程以Excel2013为例

方式/步调

1. 1

   本教程以下列Excel文档为例。

   
2. 2

   插入一个ActiveX控件，作为启动代码的节制器，如图所示。

   PS：找到号令的话，可以参考以下链接：

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

       Set rng = Selection

       k = Application.CountA(rng)

       MsgBox k

   End Sub

   
6. 6

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

   
7. 7

   将鼠标光标放在需要计较单位格地点列的任一单位格，单击控件按钮即可计较该列非空单位格个数。

   

注重事项

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