Como converter vários endereços de e-mail em hiperligações no Excel?
Se tiver uma lista de endereços de e-mail em texto simples no Excel e quiser convertê-los em hiperligações clicáveis para enviar mensagens, fazê-lo manualmente para várias entradas pode ser demorado. Este guia apresenta dois métodos eficientes: usar a fórmula HIPERLIGAÇÃO ou uma macro VBA.
Converter vários Endereço de Email em hiperligações com fórmula
Converter vários Endereço de Email em hiperligações com código VBA
Converter vários Endereço de Email em hiperligações com fórmula
Com a função Hiperligação, pode converter rapidamente a coluna Endereço de Email em endereços de hiperligação de uma só vez.
1. Introduza esta fórmula =hyperlink("mailto:"&A2) numa célula vazia onde pretende obter o resultado, conforme ilustrado na imagem:
2. Em seguida, arraste a alça de preenchimento para as células onde pretende aplicar esta fórmula e todos os endereços de e-mail se tornarão hiperligações clicáveis, como se vê na imagem seguinte:
Converter vários Endereço de Email em hiperligações com código VBA
Como pode verificar ao utilizar a fórmula acima, a cadeia «mailto:» será adicionada antes de cada endereço de e-mail. Caso não pretenda incluir o «mailto:» nos endereços, o seguinte código VBA poderá ajudá-lo.
1. Mantenha premidas as teclas Alt + F11 no Excel e abrir-se-á a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Código VBA: Converter vários Endereço de Email em hiperligações
Sub EmailHylink()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Depois de colar o código, prima a tecla F5 para executá-lo. Irá aparecer uma caixa de diálogo a solicitar que selecione o intervalo de dados a processar, conforme mostra a imagem:
4. Em seguida, clique em OK e todos os endereços de e-mail selecionados serão convertidos em hiperligações, conforme mostra a imagem:
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