Przejdź do głównej zawartości

Jak przekonwertować wiele adresów e-mail na hiperłącza w programie Excel? 

Jeśli masz listę adresów e-mail w postaci zwykłego tekstu w arkuszu, a teraz chcesz przekonwertować te adresy e-mail na hiperłącza, które możesz wysyłać e-maile, klikając adresy. Oczywiście możesz przekonwertować je na adresy e-mail z hiperłączami, ale ta metoda będzie nudna, jeśli trzeba przekonwertować wiele adresów. W tym artykule omówię kilka dobrych sztuczek, aby poradzić sobie z tym zadaniem.

Konwertuj wiele adresów e-mail na hiperłącza za pomocą Formuły

Konwertuj wiele adresów e-mail na hiperłącza za pomocą kodu VBA


strzałka niebieski prawy bąbelek Konwertuj wiele adresów e-mail na hiperłącza za pomocą Formuły

Z Hiperłącze możesz szybko przekonwertować adresy e-mail kolumn na adresy z hiperłączami.

1. Wprowadź tę formułę = hiperłącze („mailto:” & A2) do pustej komórki, w której chcesz umieścić wynik, patrz zrzut ekranu:

doc konwertuj adresy na hiperłącza 1

2. Następnie przeciągnij uchwyt wypełniania w dół do komórek, które chcesz zawrzeć w tej formule, a wszystkie adresy e-mail stały się klikalnymi hiperłączami, jak pokazano na poniższym zrzucie ekranu:

doc konwertuj adresy na hiperłącza 2


strzałka niebieski prawy bąbelek Konwertuj wiele adresów e-mail na hiperłącza za pomocą kodu VBA

Jak widać, używając powyższego wzoru, przed każdym adresem e-mail zostanie dodany ciąg „mailto:”, jeśli nie chcesz, aby mailto: w adresach następujący kod VBA może wyświadczyć ci przysługę.

1. Przytrzymaj Alt + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: konwertuj wiele adresów e-mail na hiperłącza

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. Po wklejeniu kodu naciśnij F5 klucz do tego kodu, a pojawi się okno zachęty przypominające o wyborze zakresu danych, którego chcesz użyć, patrz zrzut ekranu:

doc konwertuj adresy na hiperłącza 3

4. A następnie kliknij OK, wszystkie wybrane adresy e-mail zostały przekonwertowane na adresy z hiperłączami, zobacz zrzut ekranu:

doc konwertuj adresy na hiperłącza 4

Najlepsze narzędzia biurowe

Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

karta kte 201905


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

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

Kann mir jemand helfen?
This comment was minimized by the moderator on the site
Hello, kk.operator

To solve your problem, please apply the following code:

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


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Works perfectly in Excel 2003! Thanks much!
This comment was minimized by the moderator on the site
I'm in a MAC environment so don't have a ALT key. Any other ieas?
This comment was minimized by the moderator on the site
The equivalent for the ALT key is the command key (located to the left of the Option Key).

Both of these keys are located to the left of the spacebar.
This comment was minimized by the moderator on the site
you are a star, it worked perfectly. thanks a million
This comment was minimized by the moderator on the site
I cannot find the find converting cells to hyperlinks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations