This post will guide you how to** count the number of cells that contain odd or even numbers **within a range of cells using a formula in Excel 2013/2016.How do I count cells that contain odd numbers through the use of an Excel VBA Macro.

Table of Contents

## Count Number of Cells that Contain Even Numbers

Assuming that you have a data list in the range of cells B1:B6, and you want count the number of cells containing only even numbers, and write the result in cell D1.You can use a formula based on the SUMPRODUCT function and the MOD function. Like this:

** =SUMPRODUCT(–(MOD(B1:B6,2)=0))**

**Let’s see how this formula works:**

**=MOD(B1:B6,2)=0**

The Mod function can be used to check whether the cell within the range B1:B6 containing the numbers if they are divided by 2 or not. If True, it indicates that that number is an even number. This formula returns an array result like:

**{TRUE;TRUE;TRUE;FALSE;FALSE;TRUE}**

The double negative operator would convert the above result array into 1 and 0. And still returns an array result. Like:

**{1;1;1;0;0;1}**

The SUMPRODUCT function will add those numbers in the array result and returns the final result.

## Count Number of Cells that Contain Odd Numbers

If you want to count number that contain odd numbers within a range of cells B1:B6, and you can use a formula based on the SUMPRODUCT function along with the MOD function. Like below:

**=SUMPRODUCT(–(MOD(B1:B6,2)<>0))**

The Mod function will check whether the cell with the range B1:B6 containing numbers are divided by 2 or not.

## Count Number of Cells that Contain Odd Numbers Using VBA

You can also count cells that contain odd numbers from a range using VBA macro, just do the following steps:

**Step1#** open your excel workbook and then click on “**Visual Basic**” command under **DEVELOPER** Tab, or just press “**ALT+F11**” shortcut.

**Step2#** then the “Visual Basic Editor” window will appear.

**Step3# **click “**Insert**” ->”**Module**” to create a new module.

**Step4# **paste the below VBA code into the code window. Then clicking “**Save**” button.

Sub CountCellsContainOddNumbers() Dim mysheet As Worksheet Dim myrange As Range Set mysheet = Worksheets("Sheet3") Set myrange = mysheet.Range("B1:B6") For Each xcell In myrange cellmod = xcell Mod 2 oddnum = oddnum + cellmod Next xcell mysheet.Range("D1") = oddnum End Sub

**Step5#** back to the current worksheet, click on ** Macros **button under

**group. then click**

`Code`

**button.**

`Run`

**Step6#** let’s see the result:

### Related Functions

- Excel SUMPRODUCT function

The Excel SUMPRODUCT function multiplies corresponding components in the given one or more arrays or ranges, and returns the sum of those products. The syntax of the SUMPRODUCT function is as below:**=**SUMPRODUCT (array1,[array2],…)… - Excel MOD function

he Excel MOD function returns the remainder of two numbers after division. So you can use the MOD function to get the remainder after a number is divided by a divisor in Excel. The syntax of the MOD function is as below:=MOD (number, divisor)….