Como contar / somar células com tachado no Excel?
No Excel, é comum aplicar a formatação de tachado a determinadas células para marcar dados como obsoletos, irrelevantes ou inválidos. Essa indicação visual pode melhorar muito a gestão de dados e ajudá-lo a focar nas informações que realmente importam durante a análise. No entanto, ao realizar cálculos – como contagem ou soma –, você pode querer separar os resultados das células com tachado daquelas sem tachado. Entender como lidar com esses cenários pode agilizar seu fluxo de trabalho e levar a insights mais precisos. Este artigo fornece vários métodos práticos para contar e somar células com ou sem formatação de tachado no Excel, usando funções VBA personalizáveis que oferecem flexibilidade para diferentes necessidades de gerenciamento de dados.
Contar células com tachado usando VBA no Excel
Contar células sem tachado usando VBA no Excel
Somar excluindo células com tachado usando VBA no Excel
Contar ou Somar Células com Tachado Usando Kutools para Excel
Contar células com tachado no Excel
Se você precisa determinar o número total de células formatadas com tachado em um intervalo específico, isso não pode ser alcançado diretamente com as funções nativas do Excel, já que não existe uma fórmula que reconheça formatações de texto como o tachado. Portanto, usar uma Função Definida pelo Usuário (UDF) em VBA torna-se uma solução prática. Essa abordagem é especialmente útil ao gerenciar listas de tarefas, atualizações de inventário ou qualquer cenário onde o tachado é usado para indicar dados concluídos, inválidos ou obsoletos.
1. Pressione e mantenha as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do VBA, clique em Inserir > Módulo para criar um novo módulo e, em seguida, cole o seguinte código na Janela do Módulo.
Código VBA: Contar células com tachado
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Após inserir o código, salve sua pasta de trabalho (para manter a macro), feche o editor do VBA e retorne à sua planilha. Em qualquer célula em branco onde deseja que o resultado apareça, insira a seguinte fórmula (por exemplo, para verificar células com tachado no intervalo A2:B14): =CountStrike(A2:B14)
Dica: Você pode alterar A2:B14 para qualquer outro intervalo que deseja verificar.
4. Pressione a tecla Enter para executar a fórmula, e o Excel exibirá imediatamente a contagem de todas as células com tachado no intervalo especificado. Isso permite que você acompanhe o progresso ou remova entradas desatualizadas conforme necessário. Veja a captura de tela:
Precaução: Para garantir que este código VBA permaneça disponível para uso futuro, você deve salvar o arquivo no formato .xlsm (Pasta de Trabalho Habilitada para Macro do Excel).
Contar células sem tachado no Excel
Há casos em que você pode precisar contar apenas aquelas células que não têm a formatação de tachado em um determinado intervalo. Por exemplo, em tabelas de acompanhamento de projetos ou dados de vendas, muitas vezes você deseja contar apenas as entradas ativas/válidas (ou seja, aquelas sem tachado) para operações adicionais. As funções padrão CONTAR ou CONTARA do Excel ignoram a formatação de texto, então uma solução VBA adaptada oferece controle preciso sobre essas necessidades.
1. Pressione ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Vá para Inserir > Módulo para adicionar um novo módulo de código. Cole o seguinte código nessa janela de módulo.
Código VBA: Contar células sem tachado
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Salve sua pasta de trabalho habilitada para macros, retorne à planilha e, em uma célula em branco, insira a fórmula (por exemplo, para A2:B14): =countnostrike(A2:B14) Depois, pressione Enter para obter o resultado. O Excel contará apenas as células dentro do intervalo selecionado que não têm formatação de tachado.
Nota: No exemplo acima, A2:B14 é o intervalo de células sendo avaliado. Ajuste a referência do intervalo conforme necessário para sua planilha. Além disso, tenha em mente que células mescladas ou formatações especiais às vezes podem afetar os resultados – verifique se o intervalo contém apenas as células pretendidas.
Somar excluindo células com tachado no Excel
Ao lidar com dados numéricos onde certas entradas não estão mais ativas ou devem ser ignoradas (ou seja, têm formatação de tachado), muitas vezes é essencial somar apenas os números válidos. Isso é comum em folhas de orçamento, gerenciamento de estoque ou rastreamento de tarefas, onde entradas com tachado representam itens obsoletos ou concluídos que devem ser excluídos dos totais. Como a função SOMA nativa do Excel não diferencia entre células formatadas e não formatadas, uma Função Definida pelo Usuário VBA é necessária para essa operação.
1. Use ALT + F11 para abrir o editor do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para adicionar um módulo e cole o código abaixo nessa janela de módulo.
Código VBA: Somar excluindo células com tachado
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Salve e feche o editor do VBA. Na sua planilha de destino, escolha uma célula em branco e insira a seguinte fórmula (por exemplo, para B2:B14): =excstrike(B2:B14) Pressione Enter e o Excel somará apenas as células no intervalo especificado que não têm formatação de tachado, fornecendo instantaneamente uma soma que exclui valores obsoletos.
Nota: Ajuste B2:B14 para o intervalo real de seus dados. Esta função ignora células com tachado independentemente de seus valores. Se você experimentar resultados inesperados, certifique-se de que todas as células contenham entradas numéricas e a formatação correta.
Dica prática: Se você precisar atualizar a soma após alterar o status de tachado de qualquer célula, recalcule a planilha pressionando F9.
Contar ou Somar Células com Tachado Usando Kutools para Excel
Se você quiser contar ou somar apenas as células que têm um formato de tachado, o Excel não oferece uma maneira nativa de fazer isso – mas o Kutools para Excel facilita isso com seu recurso de Filtro Especial.
1. Selecione a Coluna
Clique na coluna que contém as células com formatação de tachado.
2. Abra o Filtro Especial
Vá para a aba Kutools Plus, depois clique em Filtro Especial > Filtrar Células com Tachado.
3. Confirme o Filtro
Uma caixa de diálogo aparecerá mostrando quantas células corresponderam à condição. Clique em OK para continuar.
4. Visualize os Resultados
As células com tachado agora estão filtradas e visíveis. Selecione o intervalo filtrado – você verá instantaneamente a Soma, Média e Contagem na barra de status do Excel na parte inferior.
✨ Por que usar o Kutools?
O Kutools para Excel oferece mais de 300 recursos poderosos e fáceis de usar como este – ajudando você a economizar tempo e aumentar a produtividade sem escrever fórmulas complexas ou código VBA.
Seja filtrando por formato, limpando dados, combinando planilhas ou editando em lote, o Kutools simplifica seu trabalho em segundos.
Experimente o Kutools para Excel gratuitamente por 30 dias e descubra o que você estava perdendo!
Artigos relacionados:
Como somar / contar números em negrito em um intervalo de células no Excel?
Como contar e somar células com base na cor de fundo no Excel?
Como contar / somar células com base nas cores de fonte no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins