Como extrair texto com base na cor da fonte de uma célula no Excel?
Se você tem uma lista de dados com algum texto em vermelho em cada célula do Excel, conforme mostrado na imagem abaixo, e você sabe como extrair apenas o texto em vermelho? Agora vou apresentar uma maneira rápida de resolver o quebra-cabeça que extrai texto com base na cor da fonte de uma célula no Excel.
Extraia o texto com base na cor da fonte de cada célula
Extraia o texto com base na cor da fonte de cada célula
No Excel, você só pode usar a função definida para extrair o texto com base na cor da fonte.
1. Pressione Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.
2. Clique inserção > Módulo e copie o seguinte código VBA para a janela aberta.
VBA: Extraia texto com base na 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. Em seguida, salve e feche a caixa de diálogo e selecione uma célula em branco ao lado da lista de dados, digite esta fórmula = GetColorText (A1) (A1 indica a célula da qual deseja extrair o texto), pressione Entrar para obter o texto necessário e, em seguida, arraste a alça de preenchimento automático para preencher a fórmula até o intervalo desejado.
Agora você pode ver que todo o texto em vermelho foi extraído.
Dica: No código VBA acima, você pode alterar a cor rgb neste script TextColor = RGB(255, 0, 0) para outras para atender a sua necessidade.
Artigos relativos:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!