Como converter múltiplos endereços de e-mail em hiperlinks no Excel?
Se você tem uma lista de endereços de e-mail em formato texto no Excel e deseja convertê-los em hiperlinks clicáveis para envio de e-mails, fazer isso manualmente para várias entradas pode ser demorado. Este guia demonstra dois métodos eficientes: usando a fórmula HYPERLINK ou uma macro VBA.
Converter múltiplos endereços de e-mail em hiperlinks com Fórmula
Converter múltiplos endereços de e-mail em hiperlinks com código VBA
Converter múltiplos endereços de e-mail em hiperlinks com Fórmula
Com a função Hyperlink, você pode rapidamente converter os endereços de e-mail da coluna em endereços com hiperlinks de uma só vez.
1. Insira esta fórmula =hyperlink("mailto:"&A2) em uma célula em branco onde você deseja colocar o resultado, veja a captura de tela:
2. Em seguida, arraste a alça de preenchimento para baixo até as células que você deseja que contenham essa fórmula, e todos os endereços de e-mail se tornarão hiperlinks clicáveis, como mostrado na seguinte captura de tela:
Converter múltiplos endereços de e-mail em hiperlinks com código VBA
Como você pode ver, ao usar a fórmula acima, uma string “mailto:” será adicionada antes de cada endereço de e-mail; se você não quiser o mailto: nos endereços, o seguinte código VBA pode ajudá-lo.
1. Pressione as teclas Alt + F11 no Excel, e abrirá a janela 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 múltiplos endereços de e-mail em hiperlinks
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. Após colar o código, pressione a tecla F5 para executar o código. Uma caixa de prompt aparecerá, pedindo para você selecionar o intervalo de dados para processamento, veja a captura de tela:
4. E então clique em OK, todos os endereços de e-mail selecionados foram convertidos em endereços com hiperlinks, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!