Como extrair as iniciais dos nomes no Excel?
Ao processar registos de clientes ou realizar uma mala direta, pode ser muito útil obter as iniciais de um nome próprio — por exemplo, HG para Hal Greer. Por isso, partilho consigo alguns truques práticos para extrair rapidamente as iniciais de uma lista de nomes no Excel.
Extrair iniciais com fórmula no Excel
Extrair iniciais utilizando uma Função Definida no Excel
Extrair iniciais com fórmula no Excel
O primeiro método consiste em usar uma fórmula para extrair as iniciais dos nomes no Microsoft Excel.
Selecione uma célula vazia, por exemplo, a célula C2, introduza esta fórmula =ESQUERDA(A2)&SE(ÉNÚMERO(PROCURAR(« »;A2));EXT.TEXTO(A2;PROCURAR(« »;A2)+1;1);«»)&SE(ÉNÚMERO(PROCURAR(« »;A2;PROCURAR(« »;A2)+1));EXT.TEXTO(A2;PROCURAR(« »;A2;PROCURAR(« »;A2)+1)+1;1);«») (A2 é a primeira célula da sua lista de nomes), prima Enter e, em seguida, arraste a alça de preenchimento para preencher o intervalo. Agora verá que todas as iniciais de cada nome foram extraídas da lista de nomes.
Extrair iniciais utilizando uma Função Definida no Excel
Além da fórmula, pode utilizar uma Função Definida pelo Utilizador para extrair facilmente as iniciais de nomes específicos no Microsoft Excel.
1. Selecione uma célula da coluna que pretende utilizar e prima Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela que surge, clique em Inserir > Módulo e, de seguida, cole o seguinte código VBA no módulo.
VBA: Extrair iniciais de nomes
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function3. Guarde o código e feche esta janela, selecione uma célula vazia e introduza a fórmula = FirstCharacters(A2). Depois, prima Enter e arraste a alça de preenchimento para preencher o intervalo pretendido. Verá então que as iniciais de cada nome foram extraídas.
Dica: Pode alterar os separadores "." das iniciais conforme necessário no código VBA acima.
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