This post will guide you how to count and sum cells by font color or cell color in Excel. How do I sum cell values by font color with VBA code in Excel. How to sum cells by color with formula in Excel.

• Sum Cells by Cell Color with Filter feature
• Sum Cells by Cell Color with VBA Code
• Sum Cells by Font Color with VBA Code
• Count Cells by Cell Color with VBA Code
• Count Cells by Font Color with VBA Code
• Video: Count and Sum Cells by Color

Sum Cells by Color with Filter feature

---

Assuming that you have a list of data in range A1:C6, which contain product name and its sale values, and the cells that contain sale values have been colored by different color. And you want to sum sale values by color in your worksheet. How to achieve it. You can use the filter command in combination with SUBTOTAL function to achieve the result. Just do the following steps:

#1 select the sale column in your range. And go to DATA tab, click Filter command under Sort & Filter group. And one filter icon will be added in the first cell of sales column.

#2 click filter icon on the Cell C1, and click Filter by Color, then select one color that you want to be filtered (such as: select green color as filtered color). Click Ok button.

#3 all cell will be filtered out by green color.

#4 Type the following formula in a blank cell to sum cells by green color, and then press Enter key in your keyboard.

=SUBTOTAL(9,A2:C6)

You will see that cell values will be counted by green color only.

   
Sum Cells by Color with VBA Code

---

You can also write a User Defined Function to achieve the result of summing cells by Cell color in Excel. Just do the following steps:

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

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

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

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

Public Function SumByColor(myRange As Range, dRange As Range)
     Subtotal = 0
     For Each myCell In myRange
         If myCell.Interior.Color = dRange.Interior.Color Then
             Subtotal = Subtotal + myCell.Value
         End If
     Next
     SumByColor = Subtotal
End Function

#5 back to the current worksheet, then type the following formula in a blank cell. press Enter key.

=SumByColor(C2:C6,C3)

Sum Cells by Font Color with VBA Code

---

If you want to sum cells by Font color for in a given range of cells in Excel, you can also write a User Defined function to achieve the result. Just do the following steps:

#1 repeat the above steps 1-3.

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

Public Function SumByFontColor(myRange As Range, dRange As Range)
    Subtotal = 0
    For Each myCell In myRange
        If myCell.Font.Color = dRange.Font.Color Then
            Subtotal = Subtotal + myCell.Value
        End If
    Next
    SumByFontColor = Subtotal
End Function

#3 back to the current worksheet, then type the following formula in a blank cell. press Enter key.

=SumByFontColor(C2:C6,C3)

Count Cells by Color with VBA Code

---

If you only want to count cells by one color in your range of cells, you can use a User Defined Function to achieve the result. Just do the following steps:

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

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

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

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

Public Function CountByColor(myRange As Range, dRange As Range)
    Subtotal = 0
    For Each myCell In myRange
        If myCell.Interior.Color = dRange.Interior.Color Then
            Subtotal = Subtotal + 1
        End If
    Next
    CountByColor = Subtotal
End Function

#5  back to the current worksheet, then type the following formula in a blank cell. press Enter key.

=CountByColor(C2:C6,C3)

Count Cells by Font Color with VBA Code

---

If you want to count cells by Font Color, you can use the below User Defined function to achieve the result.

Public Function CountByFontColor(myRange As Range, dRange As Range)
    Application.Volatile

    For Each myCell In myRange
        If myCell.Font.Color = dRange.Font.Color Then
            CountByFontColor = CountByFontColor + 1
        End If
    Next
End Function

Video: Count and Sum Cells by Color

Related Functions

---

• Excel SUBTOTAL function
  The Excel SUBTOTAL function returns the subtotal of the numbers in a list or database. The syntax of the SUBTOTAL function is as below:= SUBTOTAL (function_num, ref1, [ref2])….