Como extrair apenas texto de uma string alfanumérica no Excel?
Quando você tem uma longa lista de várias strings alfanuméricas em cada célula no Excel e deseja extrair apenas as strings de texto delas, você pode fazer o seguinte conforme apresento abaixo.
Extrair apenas texto de uma string alfanumérica usando uma Função Definida no Excel
Extrair apenas texto de uma string alfanumérica com o Kutools para Excel
Extrair apenas texto de uma string alfanumérica usando uma Função Definida no Excel
Use a Função Definida para extrair apenas texto de uma string alfanumérica no Excel da seguinte forma:
1. Selecione uma célula da coluna que você deseja selecionar e pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela pop-up, clique em Inserir > Módulo, depois cole o seguinte código VBA no módulo.
VBA: Extrair apenas texto
Function TextOnly(pWorkRng As Range) As String
'Updateby20140515
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
For xIndex = 1 To VBA.Len(xValue)
If Not VBA.IsNumeric(VBA.Mid(xValue, xIndex, 1)) Then
OutValue = OutValue & VBA.Mid(xValue, xIndex, 1)
End If
Next
TextOnly = OutValue
End Function
3. Salve o código e feche a janela, depois digite esta fórmula =TextOnly(A1) (A1 é a primeira célula da sua lista que você deseja extrair apenas texto) em uma célula em branco, pressione o botão Enter, depois preencha a alça para o intervalo desejado.
Extrair apenas texto de uma string alfanumérica com o Kutools para Excel
O recurso Remover Caracteres do Kutools para Excel também pode ajudá-lo a extrair apenas texto no Excel.
Kutools para Excel inclui mais de 300 ferramentas úteis para o Excel. Gratuito para experimentar sem limitação por 30 dias. Obtenha-o Agora
1. Selecione o intervalo do qual você deseja extrair apenas texto e clique em Kutools > Texto > Remover Caracteres. Veja a captura de tela:
2. No diálogo Remover Caracteres, marque as caixas de seleção Numérico e Não-imprimíveis. Veja a captura de tela:
3. Clique em Ok, então todos os caracteres não-texto serão removidos, veja a captura de tela:
Dica: Como essa aplicação alterará seus dados originais, é melhor copiar os dados originais para outro local primeiro.
Para mais informações sobre Remover Caracteres.
Artigos Relacionados:
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