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

Excel是众所周知的一种强大的数据处理软件，它可以通过内置的VBA编程实现各类操作。今天，我们将为大家介绍如何使用VBA编程来求Excel区域中非空单元格的数量。

打开含有数据的Excel表格

首先，我们需要打开一个含有数据的Excel表格，如下图所示。在这里，我们将以该工作表为例，演示如何求出所有非空单元格的个数。

点击“开发工具”选项卡中的“Visual Basic”

接下来，我们需要点击Excel的“开发工具”选项卡中的“Visual Basic”按钮，如下图所示。这将会打开一个新的窗口，进入到VBA编辑界面。

输入VBA代码

在打开的VBA编辑界面中，我们需要先点击左侧数据所在工作表，然后在右侧弹出的代码编辑区中输入以下代码：

Sub 鱼木混猪()

For Each r In UsedRange

If r <> "" Then k k 1

Next

MsgBox k

End Sub

如下图所示。

这段代码使用了一个For循环，遍历Excel表格中的每一个单元格。当单元格不为空时，就将计数器k加1。最后，我们使用MsgBox函数将计数器k的值输出到屏幕上。

运行VBA代码

完成上述代码的输入之后，我们需要点击代码中的任意位置，然后再点击上方的“运行子程序”按钮，如下图所示。

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

总结

本文向大家介绍了如何使用VBA编程来求Excel中非空单元格的数量。通过编写简单的VBA代码，我们能够通过快捷而高效的方式获取到Excel工作表中所有非空单元格的个数，提高了工作效率。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。