如何计算Excel中某个范围内的空白单元格或非空白单元格？

网友投稿 729 2023-12-20

如何计算Excel中某个范围内的空白单元格或非空白单元格？

如果在Excel的范围内有一些没有数据填充的单元格，而您只想知道此范围内有多少非空白单元格或空白单元格，该怎么办？现在，我可以为您介绍两种在Excel中计算空白单元格或非空白单元格的方法。

用公式计算空白或非空白单元格

用VB计数空白或非空白单元格
轻松计数非空白单元格 Kutools for Excel 用公式计算空白或非空白单元格

在Excel中，有一些公式可以帮助您快速计算范围内的空白或非空白单元格。

例如，您只需要如下所示计算该范围内的空白单元格，然后选择一个空白单元格即可键入此公式 = COUNTIF（A1：G11，“”）（范围A1：G11表示您要计算空白单元格的范围，可以根据需要进行更改），然后按键盘上的Enter键，您将对空白单元格进行计数。看截图：

提示：您可以使用以下公式： = COUNTBLANK（A1：G11）也只计算空白单元格如果您只想计算非空白单元格，则可以使用以下公式 = COUNTA（A1：G11）（范围A1：G11表示您要计算非空白单元格的范围，可以根据需要进行更改），也可以使用此公式 = COUNTIF（A1：G11，“ <>”）.

轻松计算并选择Excel中某个范围内的所有非空白单元格：

Kutools for Excels 选择非空白单元格

该实用程序可帮助您轻松地计算并选择Excel中选定范围内的所有非空白单元格，如下图所示。

立即下载并试用！ (60-天免费试用）

使用VBA计数空白或非空白单元格

请按照以下步骤使用VBA代码转换仅计数空白或非空白单元格。

1.按住 ALT 按钮并按下 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块，然后将VBA复制到模块中。

VBA：仅计算空白单元格

Sub CountBlanks() Updateby20140310 Dim rng As Range Dim WorkRng As Range Dim total As Long On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each rng In WorkRng If IsEmpty(rng.Value) Then total = total + 1 End If Next MsgBox "There are " & total & " blank cells in this range." End Sub

Copy

3。点击运行运行VBA， Kutools对于Excel 弹出对话框供您选择工作范围，请参见屏幕截图：

4。然后点击 OK 在对话框中，将显示另一个对话框，告诉您在此选定范围内有多少空白单元格。

提示：如果要计算非空白单元格，则可以执行上述操作，并使用以下VBA：

VBA：仅计算非空白单元格

Sub CountNonBlanks() Updateby20140310 Dim rng As Range Dim WorkRng As Range Dim total As Long On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each rng In WorkRng If Not IsEmpty(rng.Value) Then total = total + 1 End If Next MsgBox "There are " & total & " not blank cells in this range." End Sub