1、首先，打开含有数据的Excel表格，如下图所示，求Excel该工作表中所有非空单元格的数量。
2、点击“开发工具”选项卡中的“Visual Basic”，如下图所示。
3、在打开的VBA编辑界面，先点击左侧数据所在工作表，右侧弹出的代码编辑区中，输入代码：Sub 鱼木混猪()For Each r In UsedRange朐袁噙岿If r <> "" Thenk = k + 1End IfNextMsgBox kEnd Sub如下图所示。
4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。
5、这样，就会在Excel中显示当前工作表中所有非空单元格的个数，如下图所示。
