Eu duvido que haja uma maneira com as funções normais do Excel.
Mas aqui está uma solução rápida usando o VBA .
- abra sua pasta de trabalho e pressione ALT + F11
- insira o código abaixo em sheet1 ou onde quer que seus dados estejam
- personalize o
Range("A1:A100")
para o que você precisar - feche o editor do VBA e volte para a planilha com seus dados
-
pressione ALT + F8 e execute a macro
Sub countcolor() For Each cell In Range("A1:A100") Select Case cell.Interior.ColorIndex Case 6: yellow = yellow + 1 Case 3: red = red + 1 Case 2: white = white + 1 Case Else: others = others + 1 End Select Next MsgBox "Yellow: " & yellow & Chr(13) _ & "Red: " & red & Chr(13) _ & "White: " & white & Chr(13) _ & "Others: " & others End Sub