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
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