如何在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對范圍內的粗體單元格進行計數和求和

Y您只需單擊幾下，即可輕鬆計算或求和範圍內所有粗體單元，而無需處理複雜的VBA代碼和記住公式。

1.要計算粗體單元格，請選擇一個空白單元格以查找結果，然後單擊 庫工具 > Kutools函數 > 統計與數學 > 計數字體.

要匯總粗體單元格，請單擊 庫工具 > Kutools函數 > 統計與數學 > 字體粗體。 看截圖：

2.在F功能參數 對話框中，在“參考”框中使用需要計數或求和的粗體單元格指定範圍，然後單擊 OK 按鈕。

現在，將立即在選定的單元格中填充指定範圍內所有粗體單元格的計數或求和。 看截圖：

使用Kutools for Excel保持公式單元格引用恆定

相關文章:

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