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

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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
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!
officetab dół
Sortuj komentarze według
Komentarze (7)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie mogę znaleźć znaleziska konwertującego komórki na hiperłącza.
Ten komentarz został zminimalizowany przez moderatora na stronie
jesteś gwiazdą, zadziałało idealnie. stukrotne dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Jestem w środowisku MAC, więc nie mam klawisza ALT. Jakieś inne rzeczy?
Ten komentarz został zminimalizowany przez moderatora na stronie
Odpowiednikiem klawisza ALT jest klawisz polecenia (znajdujący się po lewej stronie klawisza opcji).

Oba te klawisze znajdują się po lewej stronie spacji.
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa doskonale w Excelu 2003! Dzięki wielkie!
Ten komentarz został zminimalizowany przez moderatora na stronie
Ich suche eine Formel mit der ich E-Mail-Adressen in URLs umwandeln kann...

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

Czy ktoś może mi pomóc?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, kk.operatorze

Aby rozwiązać swój problem, zastosuj następujący kod:

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


Proszę spróbować, mam nadzieję, że może ci to pomóc!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL