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

2025-10-03 00:37:00

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

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

2、点击“开发工具”选项卡中的“Visual Basic”,如下图所示。

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

3、在打开的VBA编辑界面,先点击左侧数据所在工作表,右侧弹出的代码编辑区中,输入代码:

Sub 鱼木混猪()

 

For Each r In UsedRange

 

If r <> "" Then

 

k = k + 1

 

End If

 

Next

 

MsgBox k

 

End Sub

 

如下图所示。

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

4、点击代码中的任意位置,然后点击上方的“运行子程序”按钮,如下图所示。

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

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

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

1、1.打开Excel数据表;

2.点击“开发工具”中的“Visual Basic”;

3.输入代码,核心代码:

For Each r In UsedRange

 

If r <> "" Then

4.点击“运行子程序”;

5.就得到了Excel工作表中非空单元数。

 

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢