Como extrair texto com base na cor da fonte de uma célula no Excel?
No Excel, poderá ocasionalmente deparar-se com conjuntos de dados em que as células contêm texto com cores mistas — por exemplo, alguns caracteres ou palavras destacados a vermelho para ênfase ou categorização. Uma única célula pode combinar texto normal e texto vermelho para assinalar itens importantes. Extrair apenas o texto de uma determinada cor de fonte (como vermelho) revela-se extremamente útil para análise de dados, relatórios ou processamento posterior, especialmente quando precisa isolar destaques ou anotações feitos com base na cor da fonte.
Esta tarefa não pode ser realizada diretamente com as funções incorporadas do Excel, já que as fórmulas padrão não detetam nem reagem à cor da fonte. Assim, se tiver uma lista de dados semelhante à apresentada na imagem abaixo e pretender extrair apenas o texto a vermelho de cada célula, poderá perguntar-se quais os métodos práticos disponíveis para o fazer de forma eficiente. A solução seguinte explica detalhadamente como extrair texto com base na cor da fonte no Excel, facilitando a gestão, filtragem e utilização desses dados sempre que necessário.
Extrair Texto com base em Cor da Fonte de cada célula
Extrair Texto com base em Cor da Fonte de cada célula
Por predefinição, o Excel não inclui uma função pronta a usar para extrair texto com base na cor da fonte dentro de uma célula. Assim, é necessário recorrer a código VBA personalizado — uma função definida pelo utilizador — para realizar esta tarefa. Esta abordagem é ideal para utilizadores familiarizados com VBA que precisem de extrair programaticamente texto colorido de várias ou complexas células. A grande vantagem deste método é a flexibilidade para especificar qualquer cor que deseje alvejar; a sua principal limitação é não se atualizar dinamicamente caso a formatação da cor seja alterada, a menos que force um recálculo ou reaplique a função.
Siga estes passos para criar e utilizar uma função para extrair texto colorido:
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications (VBA). Caso ainda não tenha ativado o separador Programador, também pode clicar com o botão direito do rato em qualquer separador na Faixa de Opções, escolher Personalizar a Faixa de Opções e, em seguida, adicionar o separador Programador para um acesso mais fácil no futuro.
2. Na janela do VBA, clique em Inserir > Módulo. Isto criará um novo módulo onde poderá colar o seguinte código VBA.
VBA: Extrair Texto com base em Cor da Fonte
Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
If pRange.Characters(i, 1).Font.Color = TextColor Then
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
GetColorText = xOut
End Function
3. Após colar o código, guarde as alterações e feche o editor do VBA. Volte à sua folha de cálculo do Excel, selecione uma célula vazia junto à sua lista de dados e introduza a seguinte fórmula:
=GetColorText(A1)
Substitua A1 pela referência da célula específica da qual pretende extrair texto. Prima Enter para executar a função e extrair apenas o texto com a cor da fonte especificada (vermelho, por predefinição) da célula selecionada. Para aplicar esta extração a outras células da sua lista, arraste a alça de preenchimento (no canto inferior direito da célula selecionada) para baixo ou ao longo do intervalo pretendido.
Agora, todas as instâncias de texto a vermelho em cada célula serão extraídas e exibidas na respetiva célula com a fórmula, permitindo uma separação eficiente do texto colorido para análise ou apresentação posterior.
Dica: No código VBA fornecido, a linha TextColor = RGB(255,0,0) define a cor-alvo (vermelho, neste caso). Se precisar de extrair texto de outra cor, basta ajustar o valor RGB para corresponder à cor da fonte pretendida — por exemplo, para azul, utilize TextColor = RGB(0,0,255).
É importante salientar que este método extrai texto apenas das células cuja cor corresponda exatamente à Cor da Fonte especificada. Se a cor do texto for uma tonalidade próxima, mas não idêntica nos valores RGB, poderá não ser reconhecida. Verifique novamente os códigos de Cor da Fonte na sua folha de cálculo caso a extração não produza os resultados esperados.
Se encontrar problemas em que a fórmula não devolve qualquer texto, certifique-se de que as macros estão ativadas no seu ambiente do Excel e confirme se as cores da fonte correspondem efetivamente aos valores RGB definidos no código. Lembre-se de que funções definidas pelo utilizador como esta só estão disponíveis no livro onde adicionou o código, a menos que o guarde como um suplemento ou o volte a adicionar noutros livros.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos