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