How to Count And Sum Cells by Color in Excel

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 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.

count and sum cells by color1

count and sum cells by color2

#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.

count and sum cells by color3

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

count and sum cells by color4

#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.

    count and sum cells by color5
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.

Get the position of the nth using excel vba1

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

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

convert column number to letter3

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

count and sum cells by color6

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)

count and sum cells by color7

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 and sum cells by color9

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.

Get the position of the nth using excel vba1

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

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

convert column number to letter3

#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 and sum cells by color8

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

count and sum cells by color10

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])….

Comments

So empty here ... leave a comment!

Leave a Reply

Your email address will not be published. Required fields are marked *

Sidebar