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

Se você tem um intervalo de dados contendo números em negrito em uma planilha e deseja somar ou contar apenas as células em negrito, poderia adicioná-los manualmente, mas isso seria demorado. Como você pode somar ou contar rapidamente apenas as células em negrito no Excel?

Conte números em negrito em um intervalo com Função Definida pelo Usuário (VBA e fórmula)
Some números em negrito em um intervalo com 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 Kutools para Excel

Conte números em negrito em um intervalo com Função Definida pelo Usuário

A seguinte Função Definida pelo Usuário pode ajudá-lo a obter rapidamente o número de células em negrito. Por favor, faça o seguinte:

1. Mantenha pressionadas as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

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

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
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 =CountBold(A1:C9) em uma célula em branco, veja a captura de tela:

4. Em seguida, pressione a tecla Enter, 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 necessário.

Some números em negrito em um intervalo com Função Definida pelo Usuário

Se você quiser somar apenas os números em negrito em um intervalo de dados, pode criar uma função definida pelo usuário para alcançar isso.

1. Mantenha pressionadas as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

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

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
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 então pressione a tecla Enter, todos os números em negrito no intervalo A1:C9 terão sido somados. Veja a captura de tela:

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 necessário.

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

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

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

E para somar células em negrito, clique em Kutools > Funções Aprimoradas > Contagem & Matemática > SUMBYFONTBOLD. Veja a captura de tela:

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

A contagem ou soma de todas as células em negrito no intervalo especificado agora é exibida na célula selecionada. Veja a captura de tela:

Demonstração: Contar e somar células em negrito em um intervalo com Kutools para Excel

Artigos relacionados:

Como identificar e selecionar todas as células ou texto em negrito no Excel?