## How to sum / count bold numbers in a range of cells in Excel?

When you have a data range which contains some bold numbers in a worksheet, and now you want to sum or count only the bold cells, of course you can add them up one by one manually, but it will be time-consuming. How could you sum or count only the bold cells in Excel with an easy and quick way?

**Count bold numbers in a range with User Defined Function (VBA and formula) Sum bold numbers in a range with User Defined Function (VBA and formula) Several click to count and sum bold cells in a range with Kutools for Excel**

#### **Count bold numbers in a range with User Defined Function **

The following **User Defined Function** can help you quickly get the number of bold cells. Please do as this:

**1**. Hold down the **ALT + F11** keys, and it opens the **Microsoft Visual Basic for Applications window**.

**2**. Click** Insert** > **Module**, and paste the following code in the **Module Window**.

**VBA code:Count bold numbers in a range of cells**

```
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.** Then save this code, and type this formula **=CountBold(A1:C9)** into a blank cell, see screenshot:

**4**. Then press **Enter** key, and you will count the bold cells in the range A1:C9.

**Note:****A1:C9** in the formula indicates the range you want to use the function to count the bold cells, you can change it as your need.

#### **Sum bold numbers in a range with User Defined Function **

And if you want to sum only the bold numbers in a data range, I can also create a user defined function for you to solve it.

**1.** Hold down the **ALT + F11** keys, and it opens the **Microsoft Visual Basic for Applications window**.

**2**. Click **Insert** > **Module**, and paste the following code in the **Module Window**.

**VBA code:Sum bold numbers in a range of cells**

```
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**. Then save this code, and type this formula **=sumbold(A1:C9)** into a blank cell, see screenshot:

**4.** And then press **Enter** key, all the bold numbers in the range A1:C9 have been added up. See screenshot:

**Note:****A1:C9** in the formula indicates the range you want to use the function to sum the bold cells, you can change it as your need.

#### **Several click to count and sum bold cells in a range with Kutools for Excel**

You can easily count or sum all bold cells in a range with several clicks without handling complicated VBA code and remembering formulas.

Before applying** Kutools for Excel**, please **download and install it firstly**.

1. For counting bold cells, please select a blank cell for locating the result, and then click **Kutools** > **Kutools Functions** >** Statistical & Math** > **COUNTBYFONTBOLD**.

And for summing bold cells, click **Kutools** > **Kutools Functions** > **Statistical & Math** > **SUMBYFONTBOLD**. See screenshot:

2. In the F**unction Arguments** dialog box, specify the range with bold cells you need to count or sum in the Reference box, and then click the **OK** button.

Now the counting or summing of all bold cells in specified range are populated in selected cell immediately. See screenshot:

If you want to have a free trial (30-day) of this utility, **please click to download it**, and then go to apply the operation according above steps.

#### ** Keep formula cell reference constant with Kutools for Excel**

#### **Related articles**:

How to identify and select all bold cells or text in Excel?

### Best Office Productivity Tools

**Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. ** **Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...**

#### Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!