如何在Excel的單元格範圍內求和／計數粗體數字？

如果您的工作表中有一個包含粗體數字的數據區域，並且只想對粗體單元格進行求和或計數，您可以手動添加它們，但這將非常耗時。那麼如何快速輕鬆地僅對Excel中的粗體單元格進行求和或計數呢？

使用用戶定義函數（VBA和公式）計數範圍內的粗體數字
使用用戶定義函數（VBA和公式）求和範圍內的粗體數字
只需幾次點擊即可使用Kutools for Excel計數和求和範圍內的粗體單元格

使用用戶定義函數計數範圍內的粗體數字

以下用戶定義函數可以幫助您快速獲取粗體單元格的數量。請按照以下步驟操作：

1. 按住ALT + F11鍵，打開Microsoft Visual Basic for Applications窗口。

2. 點擊 插入 > 模塊，並將以下代碼粘貼到模塊窗口中。

VBA代碼：計數單元格範圍內的粗體數字

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. 然後保存此代碼，並在空白單元格中輸入公式 =CountBold(A1:C9)，見截圖：

4. 然後按Enter鍵，您將計數範圍A1:C9中的粗體單元格。

注意：公式中的A1:C9表示您想用該函數計數粗體單元格的範圍，您可以根據需要更改它。

使用用戶定義函數求和範圍內的粗體數字

如果您只想對數據範圍內的粗體數字進行求和，可以創建一個用戶定義函數來實現此目的。

1. 按住ALT + F11鍵，打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模塊，並將以下代碼粘貼到模塊窗口中。

VBA代碼：求和單元格範圍內的粗體數字

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. 然後保存此代碼，並在空白單元格中輸入公式 =sumbold(A1:C9)，見截圖：

4. 然後按Enter鍵，範圍A1:C9內的所有粗體數字都已相加。見截圖：

注意：公式中的A1:C9表示您想用該函數求和粗體單元格的範圍，您可以根據需要更改它。

只需幾次點擊即可使用Kutools for Excel計數和求和範圍內的粗體單元格

您可以輕鬆地通過幾次點擊計數或求和範圍內的所有粗體單元格，而無需處理複雜的VBA代碼和記住公式。

1. 對於計數粗體單元格，請選擇一個空白單元格以放置結果，然後點擊Kutools > 增強函數 > 計數 > COUNTBYFONTBOLD。

對於求和粗體單元格，點擊Kutools > 增強函數 > 計數 > SUMBYFONTBOLD。見截圖：

2. 在函數參數對話框中，在引用框中指定需要計數或求和的粗體單元格範圍，然後點擊確定按鈕。

指定範圍內所有粗體單元格的計數或求和現在顯示在所選單元格中。見截圖：

演示：使用Kutools for Excel計數和求和範圍內的粗體單元格

相關文章：

如何在Excel中識別並選擇所有粗體單元格或文本？