Como extrair iniciais de nomes no Excel?
Quando você está processando registros de clientes ou fazendo mala direta, obter as iniciais de um determinado nome pode ser útil para você, por exemplo, HG para Hal Greer. Aqui, apresento alguns truques para você extrair rapidamente as iniciais da lista de nomes no Excel.
Extraia iniciais com fórmula no Excel
Extraia as iniciais usando a função definida no Excel
Extraia iniciais com fórmula no Excel
O primeiro método é usar fórmulas para extrair iniciais de nomes no Microsoft Excel.
Selecione uma célula em branco, por exemplo, Célula C2, digite esta fórmula =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")(A2 é a primeira célula da sua lista de nomes), pressione Entrar botão e 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.
Extraia as iniciais usando a função definida no Excel
Além da fórmula, você pode usar a Função Definida para extrair as iniciais de nomes especificados facilmente no Microsoft Excel.
1. Selecione uma célula da coluna que deseja selecionar e pressione Alt + F11 para abrir o Microsoft Visual Basic para Aplicações janela.
2. Na janela pop-up, clique em inserção > Móduloe cole o seguinte código VBA no módulo.
VBA: Extraia as iniciais dos 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 Function
3. Salve o código e feche a janela, selecione uma célula em branco e digite esta fórmula = Primeiros caracteres (A2), então aperte Entrar botão e arraste a alça de preenchimento para preencher o intervalo desejado. Depois disso, você pode ver as iniciais de cada nome são extraídas.
Dica: Você pode alterar os separadores "." das iniciais conforme necessário no VBA acima.
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!