Excel中如何用VBA求非空单元格数

1、首先，打开含有数据的Excel表格，如下图所示，求Excel该工作表中所有非空单元格的数量。

3、在打开的VBA编辑界面，先点击左侧数据所在工作表，右侧弹出的代码编辑区中，输入代码：Sub 鱼木混猪()For Each r In UsedRange朐袁噙岿If r <> "" Thenk = k + 1End IfNextMsgBox kEnd Sub如下图所示。

5、这样，就会在Excel中显示当前工作表中所有非空单元格的个数，如下图所示。