基于VBA技术和控件操作技巧实现一键计算指定列种非空单元格的个数（即使用单元格的个数）。本教程通过一个简单例子，实现一键计算鼠标光标所在列中非空单元格的个数。工具/原料moreExcel教程以Excel2013为例方法/步骤1/7分步阅读

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

2/7

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

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

3/7

绘制好控件之后，鼠标右键单击该控件，在弹出的菜单中选择查看代码。

4/7

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

5/7

在代码窗口中复制粘贴以下代码：

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/7

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

7/7

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

注意事项

如果对您有点帮助，请帮忙点个赞再走，谢谢！

EXCEL计算非空单元格个数指定列