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、将鼠标光标放在需要计算单元格所在列的任一单元格,单击控件按钮即可计算该列非空单元格个数。
