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

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

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

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 kEnd Sub

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