Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to count / sum cells based on the font colors in Excel?

doc-count-font-color1

How could you get the number of cells or sum all the cells which contain a particular font color in Excel? For example, I have a range of data in a worksheet as following screenshot shown, and now I want to respectively count or sum the cells that have a red, blue and black font color.In Excel, there is no direct formula to deal with this task, here, i will talk about some tricks for soling this job.

Count or sum cells based on font colors with User Defined Function

Count or sum cells based on font color with Kutools for Excel

Count or sum cells based on background color with Kutools for Excel


Count / Sum cell values based on background, font, conditional formatting color:

Kutools for Excel's Count by Color feature can help you to get some calculations based on font, background or conditional formatting color as you need.

doc filter color 12

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!


arrow blue right bubble Count or sum cells based on font colors with User Defined Function


Count cells based on font colors:

To calculate the number of cells with specific font colors, please do as these:

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 cells based on font colors:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3. Then save this code and go back to the worksheet, and then enter this formula in to a blank cell =CountColour(A1:D8,A1) , see screenshot:

doc-count-font-color1

Note: In the above formula, A1:D8 is the range that you want to use and A1 is the cell with a particular font color that you want to count.

4. After typing the formula, press Enter key, and you will get the number of cells with red font colors. If you want to count other font colored cells, please repeatedly enter the formula as possible as you need. You will get the following results:

doc-count-font-color1

Sum cells based on font colors:

To sum cells based on font colors, the following User Defined Function can help you.

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 cells based on font colors:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3. Then save this code and return to the original worksheet, and then enter this formula =SumByColor(A1:D8,A1) into a blank cell, see screenshot:

doc-count-font-color1

Note: In the above formula, A1:D8 is the range that you want to use and A1 is the cell with a particular font color that you want to sum.

4. Then press Enter key, and you will add up all cells with red font colors. If you want to sum other font colored cells, please repeatedly enter the formula. You will get the following result:

doc-count-font-color1


arrow blue right bubble Count or sum cells based on font color with Kutools for Excel

May be the User Defined Function is troublesome for you to save and apply, here, I will recommend you a handy too- Kutools for Excel, with its Count by Color utility, you can quickly get the calculation result such as count, sum, average cells and so on by the background color, font color, conditional formatting.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days

After installing Kutools for Excel, please do as follows:

1. Select the data range that you want to count and sum based on different colors.

2. Click Enterprise > Count by Color, see screenshot:

doc-count-font-color1

3. In the Count by Color dialog box, choose Standard formatting from the Color method drop down, and select Font under the Count type drop down, see screenshot:

doc-count-font-color1

4. And the cells with same font colors have been counted, added up, averaged and so on. And then click Generate report button, you will get statistics in a new workbook. See screenshot:

doc-count-font-color1

Download and free trial Kutools for Excel Now !


arrow blue right bubble Count or sum cells based on background color with Kutools for Excel

If you want to count or sum the cells with specific background color, Kutools for Excel’s Count by Color feature also can help you, please do as follows:

1. Select the data range that you want to count or sum the cells based on background color, and then enable this feature by clicking Enterprise > Count by Color.

2. In the Count by Color dialog box, choose Standard formatting from the Color method drop down, and select Background under the Count type drop down, see screenshot:

doc-count-font-color1

3. Then click Generate report button, a report is generated based on the background colors, see screenshot:

doc-count-font-color1

Click to know more about this Count by Color feature.

Download and free trial Kutools for Excel Now !


arrow blue right bubble Count or sum cells based on font / background / conditional formatting color:

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!


Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial.
kte tab 201905

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!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    me · 1 months ago
    COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
  • To post as a guest, your comment is unpublished.
    Sarah · 5 months ago
    This was exactly what I needed - Thanks!
  • To post as a guest, your comment is unpublished.
    ISMERCIO · 5 months ago
    = SumByColor (A1: D8, A1) NÃO FUNCIONOU


    =SumByColor(A1:D8;A1) FUNCIONOU

    TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

    USO EXCEL 10


    MUITO BOM.


    OBRIGADO

  • To post as a guest, your comment is unpublished.
    Borja · 5 months ago
    Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

    I've tried with

    Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

    Application.Volatile
    Dim rng As Range
    For Each rng In pRange1

    If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
    CountColour = CountColour + 1

    End If
    Next
    End Function

    But it appears not to work, any suggestion?
    Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Borja,
      May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Xiahui Tan · 8 months ago
    I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, Xiahui,
      The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
  • To post as a guest, your comment is unpublished.
    Kriss · 8 months ago
    Hey
    Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, Kriss,
      To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

      Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
      Application.Volatile
      Dim rng As Range
      For Each rng In pRange1
      If rng.Value <> "" Then
      If rng.Font.Color = pRange2.Font.Color Then
      CountColour = CountColour + 1
      End If
      End If
      Next
      End Function
  • To post as a guest, your comment is unpublished.
    Tahj · 9 months ago
    Exactly what I was looking for! This will save me lots of time. Thank You
  • To post as a guest, your comment is unpublished.
    Fernanda · 10 months ago
    Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar - webchio@gmail.com
  • To post as a guest, your comment is unpublished.
    Cheryl · 11 months ago
    This was SO helpful - Thanks very much!
  • To post as a guest, your comment is unpublished.
    Hien Dang · 1 years ago
    Hướng dẫn bên trên hình như chỉ áp dụng khi màu của giá trị trong ô hoặc màu nền của ô được tô màu bằng Manual.M muốn đếm số ô mà giá trị được bôi màu theo cách Conditional Formatting.Xin giúp đỡ ạ!
  • To post as a guest, your comment is unpublished.
    Gennelee · 1 years ago
    Hi I tried it but when I changed the color of other items, it doesnt add up or the sum doesnt change.
    Please help me.
  • To post as a guest, your comment is unpublished.
    JWong · 1 years ago
    Hi,

    I followed the instructions and it works well. But then when i re-open the file, the module window is empty. It seems i cannot save the code as needed. A box pops up saying that "VB project cannot be saved in macro-free workbooks" and therefore i have to save as a macro-free workbook.

    Please advise if I have missed any steps.

    Thanks,
    J. Wong
  • To post as a guest, your comment is unpublished.
    Adam · 1 years ago
    Rather than count or sum cells based on font colour, is there a way to display certain 'values' in another column based on font colour? for example, I have a column with multiple company names that each have a specific font colour to indicate a specific calendar year. I would like to simply create a 'year' column beside this. So for example if column B contains text with font colour green, this will display "2017" in column C. And if column B contains text with font colour red, this will display "2016" in column C. I dread to do this manually as I have thousands of rows!
  • To post as a guest, your comment is unpublished.
    antonella · 1 years ago
    Hi,
    I followed the instructions above for SumByColor and they worked great.
    I was wondering whether there is a similar formula in VB to sum by background color rather than using Kutools.
    thanks, Antonella
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    hi, your solution works well but when i change the content of a cell in the range to the colour selected the result cell doesn't auto update unless i go to the result cell select the formula and hit enter. Is there a way to auto update the result cell when the range is amended.
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Mike,
      May be there is no other good method to update the result automatically when you change the cell font color, so, you need selec t the formula cell and hit Enter key or click the Automatic under the Formulas tab to get the updated result.
      If you have any other good ways, please comment here.
      Thank you very much!
  • To post as a guest, your comment is unpublished.
    mfleming · 2 years ago
    I did everything as instructed by I get #VALUE! instead of a total. I changed the formula to subtotal one single cell and it worked but when the formula has a range of cells (in my case D3:D53, I get the #VALUE result.
  • To post as a guest, your comment is unpublished.
    dfmoeller · 2 years ago
    I can't seem to get past this syntax error that I am getting. I'm not very knowledgeable when it comes to visual basic, so I'm hoping that it is just a small typing error (although I did cut and paste the code from above, rather than retype). The machine is running Windows 10/Office 2013. The error says "compile error / syntax error". The VB windows shows the line with the IF statement in the SumByColor module as highlighted. Please tell me what I'm doing wrong.
  • To post as a guest, your comment is unpublished.
    Liz · 2 years ago
    I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      [quote name="Liz"]I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?[/quote]
      Hello,LIZ:
      After inserting the code, you should save the workbook as [b]Excel Macro-Enabled Workbook[/b] file format. And then when you open this Excel file next time, you should click[b] Enable Content[/b] from the security warning ribbon to activate the macro code. Please try this.
  • To post as a guest, your comment is unpublished.
    Luke · 2 years ago
    Hi tks for the advice.
    I have a similar problem of MYTAWALBEH
    I would like to include more columns in the function
    would be great if someone has some tips
    cheers
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and working brilliant however is it possible for anyone to explain how I could apply this to a multiple set of sheets??

    Any idea will be much appreciated so cheers in advance.
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and works awesome but could someone please tell me how to apply this to multiple sheets.

    If anyone can, this will be brilliant for what I need and will be much appreciated indeed.
  • To post as a guest, your comment is unpublished.
    Phillip · 2 years ago
    Is there any way to count the cells by colour without Kutools?
  • To post as a guest, your comment is unpublished.
    Nicola · 3 years ago
    Hi! Works great, thanks.

    However, doesnt work for cells with more than one colour. Is it possible to update this code to do this?

    Nikki
  • To post as a guest, your comment is unpublished.
    KH · 3 years ago
    How do I get the spread sheet to automatically update? If my data/color changes the sum doesn't update until I select the cell with the formula, hit F2, and then click off the cell. I want my sheet to automatically update as the data changes. Thanks.
  • To post as a guest, your comment is unpublished.
    atul gaur · 3 years ago
    Sir#name error aa rahi hai
  • To post as a guest, your comment is unpublished.
    Leanne · 3 years ago
    Hi

    I need to count the number of cells in orange font from cell range B:B if Cell Range AB says 'Ventura'

    The above allows you to count according to one criteria but doesn't allow a second - I have tried but I have never written macros before and cannot get this working. Urgent help needed please?

    Thank you
    Leanne
  • To post as a guest, your comment is unpublished.
    Diana · 4 years ago
    I followed your directions for the count but in the cells that I have =CountColour(...) I have the #NAME error. I have multiple tabs, so I put the code in the sheet where I want to use it but I still got the error, so then I put it in a module. What am I missing??
    • To post as a guest, your comment is unpublished.
      nada · 3 years ago
      Click the Microsoft Office Button , and then click Excel Options.
      Click Trust Center, click Trust Center Settings, and then click Macro Settings.
      Click the options to enable macro
  • To post as a guest, your comment is unpublished.
    gwenn · 4 years ago
    thank you very much... needed a little debugging but I think that's because nothing is ever cookie cutter, what I did to fix my issues may be different than what anyone else may need to do (based on version, etc.) but once I took out the rem'd line and made sure that I was pointing to the right fields and format field to do the comparison to, it worked like a charm.
  • To post as a guest, your comment is unpublished.
    Janna · 4 years ago
    the countcolor function includes the spaces between the cell that has that specific color. can you fix this?

    thanks alot!
  • To post as a guest, your comment is unpublished.
    magician1314 · 4 years ago
    MYTawalbeh,

    I had the same issue. You have to save the workbook as a macro enabled workbook so the macro copies over. Otherwise you will continue to have the error because the macro isn't being copied over.
  • To post as a guest, your comment is unpublished.
    MYTawalbeh · 4 years ago
    IT worked ,, thank you
    But when I save and close worksheet then re-open, it shows (#Name?)
    I've saved it (Macro-enabled)
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      Click to enable macros on the yellow bar at the top of the page when you open your document and your formulas will come back. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Stefanos N · 4 years ago
    Excellent work!

    Saved my wife's night!

    Thx
  • To post as a guest, your comment is unpublished.
    MEREDITH · 4 years ago
    Hello, I keep getting an error as follows "Ambiguous name detected: SumByColor". What am i doing wrong?
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      I got this message when I tried to apply the same thing to another spreadsheet. When you go to insert module and copy in the text change it to SumByColour (different spelling and note there are two instances of it in the text). Then when I tried to use the formula in my second spreadsheet the new spelling came up which I selected and now the function works in this spreadsheet too. I hope this works for you because I am finding it extremely useful for various spreadsheets I work with.
  • To post as a guest, your comment is unpublished.
    Eddie L · 4 years ago
    I use a very similar method but have been playing with MULTI Colored fonts... say [Only the [b]BOLD[/b] word is red], fingers crossed you have a thought as to how I may achieve this!

    Cheers
    Eddie
  • To post as a guest, your comment is unpublished.
    nomnom · 4 years ago
    super cool, helped me a ton.

    if you don't mind me asking.
    when i try this on a colored cell number affected with "Conditional Formatting" it seems to see all the numbers as a single color. are there any way to have the program recognize that the color is different.
  • To post as a guest, your comment is unpublished.
    Khizar Hayat. · 5 years ago
    it works very good and so nice function.

    thank you.
  • To post as a guest, your comment is unpublished.
    Oguz Canturk · 5 years ago
    How do we do well to access?
  • To post as a guest, your comment is unpublished.
    Nick Roma · 5 years ago
    Hi,
    when i use this formula it keeps coming up with "Compile Error: Must be first statement on the line" and it has highlighted the "Function" on the first line of the formula. Help??
    • To post as a guest, your comment is unpublished.
      Suzy · 2 years ago
      May be you did not insert a module instead copied the code on the screen after Alt+F11
  • To post as a guest, your comment is unpublished.
    Minh Chau · 5 years ago
    Thank you so much! It works like wonder!