Extrair rapidamente Extrair endereços de e-mail de cadeias de texto no Excel – Um guia completo
Ao lidar com dados importados ou cadeias de texto mistas no Excel, poderá precisar de extrair endereços de e-mail de forma rápida e precisa. Quer esteja a trabalhar com uma lista em que os endereços de e-mail estão misturados com outro texto, quer precise de extrair endereços de correio eletrónico de um conjunto alargado de dados, existem vários métodos eficientes para realizar esta tarefa. Este guia orienta-o através de diversas técnicas para extrair endereços de e-mail de cadeias de texto, incluindo o uso do Preenchimento Rápido, do Kutools para Excel, de fórmulas, de funções definidas pelo utilizador e de código VBA. Cada método oferece vantagens distintas, consoante as suas necessidades e a complexidade dos seus dados.
Extrair endereços de e-mail de cadeias de texto com Preenchimento Rápido
A funcionalidade Preenchimento Rápido do Excel oferece uma forma rápida e eficiente de formatar ou extrair automaticamente dados com base em padrões que você definir. Nesta secção, explicamos como utilizar o Preenchimento Rápido para extrair endereços de e-mail de uma coluna com dados mistos. Este método é particularmente útil quando trabalha com listas que contêm vários tipos de texto e precisa apenas de isolar os endereços de e-mail.
- Clique na primeira célula da coluna adjacente (por exemplo, B2), onde deseja que o endereço de e-mail apareça.
- Introduza manualmente o Endereço de Email da linha correspondente na Coluna A e, em seguida, prima Enter.Por exemplo, se A2 contiver «ana varela@gmail.com,» introduza « ana varela@gmail.com » em B2.
- Mantenha-se na célula B3 e prima «Ctrl + E» para ativar o Preenchimento Rápido.O Excel preencherá automaticamente o restante da Coluna B com o Extrair endereços de e-mail.
- O Preenchimento Rápido está disponível no Excel 2013 e versões posteriores. Se utilizar o Excel 2010 ou uma versão anterior, esta funcionalidade poderá não estar acessível.
- Certifique-se de que as células onde está a aplicar o Preenchimento Rápido estão formatadas como «Texto» para evitar problemas indesejados de formatação.
Um clique para extrair em lote Extrair endereços de e-mail de cadeias de texto com Kutools
Quando se trata de extrair endereços de e-mail de um conjunto de dados, a funcionalidade **“Extrair endereços de e-mail”** do Kutools para Excel oferece uma alternativa poderosa ao Preenchimento Rápido do Excel. Enquanto o Preenchimento Rápido depende de uma abordagem manual baseada no reconhecimento de padrões, o Kutools para Excel automatiza todo o processo com apenas um clique — tornando-o ideal para lidar com eficiência até os maiores volumes de dados. Além de simplificar a extração, esta ferramenta garante precisão e velocidade, especialmente em conjuntos de dados complexos ou inconsistentes.
Após transferir e instalar o Kutools para Excel, siga os passos seguintes:
- Selecione o intervalo de células do qual pretende extrair endereços de e-mail e, em seguida, aceda a **Kutools** > **Texto** > **Extrair endereços de e-mail**.
- Na caixa de diálogo «Extrair endereços de e-mail» que surge, selecione uma célula para apresentar o Endereço de Email e clique em OK
Resultado
De seguida, todos os endereços de e-mail em cada célula do intervalo selecionado são extraídos imediatamente.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Extrair endereços de e-mail de cadeias de texto com Fórmula
Apresento-lhe aqui uma fórmula abrangente para extrair exclusivamente os endereços de e-mail do texto no Excel. Siga os passos seguintes:
1. Na célula adjacente B1, insira a seguinte fórmula:
=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1)))
2. Em seguida, prima a tecla Enter, selecione a célula B1 e arraste a alça de preenchimento até ao intervalo onde pretende aplicar esta fórmula. Dessa forma, os endereços de e-mail são extraídos da cadeia de texto. Veja a imagem:
Notas:
1. A pontuação após o endereço de e-mail também será extraída.
2. Se as células não contiverem o endereço de e-mail, a fórmula apresentará valores de erro.
3. Se houver mais do que um endereço de e-mail numa célula, a fórmula extrai apenas o primeiro.
Extrair endereços de e-mail de cadeias de texto com Função Definida pelo Utilizador
Além da fórmula indicada acima, uma Função Definida pelo Utilizador também pode ajudá-lo a extrair o endereço de e-mail da cadeia de texto.
1. Mantenha premidas as teclas «ALT + F11» para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em «Inserir» > «Módulo» e cole a seguinte macro na janela do módulo.
Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If OutStr = "" Then
OutStr = getStr
Else
OutStr = OutStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
ExtractEmailFun = OutStr
End Function3. Em seguida, guarde o código e introduza a fórmula =ExtractEmailFun(A1) numa célula em branco adjacente. Veja a imagem:
4. Depois, prima a tecla Enter, selecione a célula B1 e arraste a alça de preenchimento até ao intervalo onde precisa da fórmula. Assim, todos os endereços de e-mail serão extraídos do texto das células. Veja a imagem:
Notas:
1. Se as células não contiverem endereço de e-mail, aparecerão em branco.
2. Se houver mais do que um endereço de e-mail numa célula, todos os endereços de correio eletrónico serão extraídos.
Extrair endereços de e-mail de cadeias de texto com código VBA
Se as fórmulas acima indicadas lhe parecerem complicadas, o código VBA seguinte permite-lhe extrair endereços de e-mail rapidamente.
1. Mantenha premidas as teclas «ALT + F11» para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do Módulo.
VBA: Extrair endereços de e-mail de cadeias de texto
Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
extractStr = arr(i, j)
outStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If outStr = "" Then
outStr = getStr
Else
outStr = outStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
arr(i, j) = outStr
Next
Next
WorkRng.Value = arr
End Sub3. Em seguida, prima a tecla F5 para executar este código e selecione, na caixa de diálogo que surge, o intervalo onde pretende aplicar o VBA. Veja a imagem:
4. Depois, clique em OK e os endereços de e-mail serão extraídos das cadeias de texto selecionadas. Veja as imagens:
 |  |  |
Notas:
1. Se as células não contiverem o endereço de e-mail, aparecerão em branco.
2. Todos os endereços de correio eletrónico serão extraídos caso exista mais do que um endereço de e-mail numa célula.
3. Os endereços de correio eletrónico extraídos substituirão os dados originais, pelo que se recomenda que faça primeiro uma cópia de segurança dos seus dados.
Demonstração: Extrair endereços de e-mail de cadeias de texto com Kutools para Excel
Artigo relacionado:
Como extrair domínios de múltiplos endereços de e-mail no Excel?
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