Como extrair iniciais de nomes no Excel?
Ao processar registros de clientes ou fazer mala direta, obter iniciais de um nome pode ser útil para você; por exemplo, HG para Hal Greer. Então, aqui apresento alguns truques para você extrair rapidamente as iniciais da lista de nomes no Excel.
Extrair iniciais com fórmula no Excel
Extrair iniciais usando Função Definida no Excel
Extrair iniciais com fórmula no Excel
O primeiro método é usar uma fórmula para extrair iniciais de nomes no Microsoft Excel.
Selecione uma célula em branco, por exemplo, Célula C2, digite esta fórmula =ESQUERDA(A2)&SE(ÉNÚM(PROCURAR(" ",A2)),MÉDIA(A2,PROCURAR(" ",A2)+1,1),"")&SE(ÉNÚM(PROCURAR(" ",A2,PROCURAR(" ",A2)+1)),MÉDIA(A2,PROCURAR(" ",A2,PROCURAR(" ",A2)+1)+1,1),"") (A2 é a primeira célula da sua lista de nomes), pressione o botão Enter, depois arraste a alça de preenchimento para preencher o intervalo. Agora você verá que todas as iniciais de cada nome foram extraídas da lista de nomes.
Extrair iniciais usando Função Definida no Excel
Além da fórmula, você pode usar a Função Definida para extrair facilmente as iniciais dos nomes especificados no Microsoft Excel.
1. Selecione uma célula da coluna que 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 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. Salve o código e feche a janela, selecione uma célula em branco e digite esta fórmula = PrimeirosCaracteres(A2), depois pressione o botão Enter, e arraste a alça de preenchimento para preencher o intervalo desejado. Depois disso, você poderá ver que as iniciais de cada nome foram extraídas.
Dica: Você pode alterar os separadores "." das iniciais conforme necessário no VBA acima.
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