如何計算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，“ <>”）.

用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

3。 點擊 運行 運行VBA， Kutoolsfor 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

使用Kutools for Excel輕鬆計算非空白單元格

選擇非空白單元格 的效用 Excel的Kutools 幫助您一鍵選擇選定範圍內的所有非空白單元格，然後輕鬆計算選定單元格的數量。

1.選擇要計數的非空白單元格的範圍，然後單擊 庫工具 > 選擇 > 選擇空白單元格。 看截圖：

2.然後會彈出一個對話框，告訴您在選定範圍內有多少個非空白單元格，請單擊“確定”按鈕，然後立即選擇這些非空白單元格。 看截圖：

使用Kutools for Excel輕鬆計算非空白單元格

相關文章：

• 計算Excel中列中的重複值
• 計算Excel中合併的單元格