Note: The other languages of the website are Google-translated. Back to English

Hvordan konverteres flere e-mail-adresser til hyperlinks i Excel? 

Hvis du har en liste over almindelig tekst e-mail-adresser i et regneark, og nu vil du konvertere disse e-mail-adresser til hyperlinks, som du kan sende e-mails, mens du klikker på adresserne. Selvfølgelig kan du konvertere dem til hyperlinkede e-mail-adresser, men denne metode vil være kedelig, hvis der er flere adresser, der skal konverteres. I denne artikel vil jeg tale om nogle gode tricks til at håndtere denne opgave.

Konverter flere e-mail-adresser til hyperlinks med Formula

Konverter flere e-mail-adresser til hyperlinks med VBA-kode


pil blå højre boble Konverter flere e-mail-adresser til hyperlinks med Formula

Med Hyperlink funktion, kan du hurtigt konvertere kolonne-e-mail-adresserne til hyperlinkede adresser på én gang.

1. Indtast denne formel = hyperlink ("mailto:" & A2) ind i en tom celle, hvor du vil placere resultatet, se skærmbillede:

doc konvertere adresser til hyperlinks 1

2. Træk derefter fyldhåndtaget ned til de celler, som du vil indeholde denne formel, og alle e-mail-adresserne er blevet klikbare hyperlinks som følgende skærmbillede vist:

doc konvertere adresser til hyperlinks 2


pil blå højre boble Konverter flere e-mail-adresser til hyperlinks med VBA-kode

Som du kan se, tilføjes en streng "mailto:" ved hjælp af ovenstående formel foran hver e-mail-adresse, hvis du ikke vil have mailto: inden for adresserne kan følgende VBA-kode muligvis gøre dig en tjeneste.

1. Hold nede Alt + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.

VBA-kode: Konverter flere e-mail-adresser til hyperlinks

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. Når du har indsat koden, skal du trykke på F5 nøgle til denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil bruge, se skærmbillede:

doc konvertere adresser til hyperlinks 3

4. Og klik derefter på OK, alle de valgte e-mail-adresser er konverteret til de hyperlinkede adresser, se skærmbillede:

doc konvertere adresser til hyperlinks 4


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (7)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kan ikke finde finde, der konverterer celler til hyperlinks.
Denne kommentar blev minimeret af moderatoren på webstedet
du er en stjerne, det fungerede perfekt. tusind tak
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er i et MAC-miljø, så jeg har ikke en ALT-nøgle. Nogen andre ting?
Denne kommentar blev minimeret af moderatoren på webstedet
Det svarer til ALT-tasten er kommandotasten (placeret til venstre for Option-tasten).

Begge disse taster er placeret til venstre for mellemrumstasten.
Denne kommentar blev minimeret af moderatoren på webstedet
Fungerer perfekt i Excel 2003! Mange tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln can...

Beispiel: test@test.de > http://www.test.de

Kan nogen hjælpe mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej kk.operatør

For at løse dit problem skal du anvende følgende kode:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Prøv venligst, håber det kan hjælpe dig!
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL