Como somar / contar números em negrito em um intervalo de células no Excel?

Quando você tem um intervalo de dados que contém alguns números em negrito em uma planilha e agora deseja somar ou contar apenas as células em negrito, é claro que você pode adicioná-los um por um manualmente, mas isso demorará muito. Como somar ou contar apenas as células em negrito no Excel de maneira fácil e rápida?

Conte os números em negrito em um intervalo com a função definida pelo usuário (VBA e fórmula)
Soma os números em negrito em um intervalo com a função definida pelo usuário (VBA e fórmula)
Vários cliques para contar e somar células em negrito em um intervalo com o Kutools para Excel

Conte os números em negrito em um intervalo com a função definida pelo usuário

Os seguintes Função definida pelo usuário pode ajudá-lo a obter rapidamente o número de células em negrito. Faça o seguinte:

1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: conte os números em negrito em um intervalo de células

Function CountBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xCount As Long
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Em seguida, salve este código e digite esta fórmula = ContagemBold (A1: C9) em uma célula em branco, veja a captura de tela:

4. Então aperte Entrar e você contará as células em negrito no intervalo A1: C9.

Observação: A1: C9 na fórmula indica o intervalo que você deseja usar a função para contar as células em negrito, você pode alterá-lo conforme sua necessidade.

Soma os números em negrito em um intervalo com a função definida pelo usuário

E se você quiser somar apenas os números em negrito em um intervalo de dados, também posso criar uma função definida pelo usuário para você resolver.

1. Mantenha pressionada a ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: some os números em negrito em um intervalo de células

Function SumBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xSum As Long
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Em seguida, salve este código e digite esta fórmula = sumbold (A1: C9) em uma célula em branco, veja a captura de tela:

4. E, em seguida, pressione Entrar , todos os números em negrito no intervalo A1: C9 foram somados. Veja a imagem:

Observação: A1: C9 na fórmula indica o intervalo que você deseja usar a função para somar as células em negrito, você pode alterá-lo conforme sua necessidade.

Vários cliques para contar e somar células em negrito em um intervalo com o Kutools para Excel

YVocê pode facilmente contar ou somar todas as células em negrito em um intervalo com vários cliques sem lidar com o código VBA complicado e lembrar fórmulas.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Para contar células em negrito, selecione uma célula em branco para localizar o resultado e clique em Kutools > Funções Kutools > Estatística e Matemática > COUNTBYFONTBOLD.

E para somar as células em negrito, clique Kutools > Funções Kutools > Estatística e Matemática > SUMBYFONTBOLD. Veja a imagem:

2. No FArgumentos de unção caixa de diálogo, especifique o intervalo com células em negrito que você precisa contar ou somar na caixa Referência e, em seguida, clique no botão OK botão.

Agora, a contagem ou soma de todas as células em negrito no intervalo especificado são preenchidas na célula selecionada imediatamente. Veja a imagem:

Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.

Mantenha a referência da célula da fórmula constante com o Kutools para Excel

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra...

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis... Compra...

15 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

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.
Djn · 3 years ago
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
- Reply
To post as a guest, your comment is unpublished.
Kal · 5 years ago
RE: CountBold formula
This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
- Reply
- To post as a guest, your comment is unpublished.
  Daniel · 5 years ago
  
  Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear guys,
  The formula won't update if you just change the format of the number cells.
  It updates only when you change the cell content.
  
  Reply
To post as a guest, your comment is unpublished.
Julia · 7 years ago
I'm using excel for mac 2011. How can I run the code on my system? thanks!
- Reply
To post as a guest, your comment is unpublished.
Maey · 7 years ago
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
- Reply
- To post as a guest, your comment is unpublished.
  Vadim · 7 years ago
  
  [quote name="Maey"]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?![/quote]
  
  You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
  
  Reply
To post as a guest, your comment is unpublished.
Anil · 7 years ago
Thank you..

it's working...
- Reply
To post as a guest, your comment is unpublished.
Katie · 7 years ago
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
- Reply
To post as a guest, your comment is unpublished.
Katie · 7 years ago
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar.
If you have a fix for this I would be very grateful.
- Reply
- To post as a guest, your comment is unpublished.
  Taz · 7 years ago
  
  Hi Katie, Use the below code, as the sum shows decimal places.
  
  Function SumBold(rng As Range)
  Dim rCell As Range
  Application.Volatile
  SumBold = 0
  For Each rCell In rng
  If rCell.Font.Bold Then _
  SumBold = SumBold + rCell
  Next
  End Function
  
  Reply
To post as a guest, your comment is unpublished.
Peter · 7 years ago
THIS IS AWESOME !!!! It worked perfectly !! Thank you
- Reply
To post as a guest, your comment is unpublished.
kersten · 7 years ago
hello,
using excel 2013 Dutch with kutools 6.5 but can't sill using reading layout.
ask before shout be solved in this version ???
- Reply
- To post as a guest, your comment is unpublished.
  Admin-jay · 7 years ago
  
  [quote name="kersten"]hello,
  using excel 2013 Dutch with kutools 6.5 but can't sill using reading layout.
  ask before shout be solved in this version ???[/quote]
  
  Hello, Please contact me at jaychivo#extendoffice.com. Please replace # with @.
  
  :-)
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Trenton · 7 years ago
  
  Is there a way to count based on cell color if text is bolded?
  
  Reply

Acesse sua conta

Resetar a senha