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

Як перетворити декілька адрес електронної пошти на гіперпосилання в Excel? 

Якщо у вас на робочому аркуші є список адрес електронної пошти у вигляді простого тексту, ви хочете перетворити ці адреси електронної пошти на гіперпосилання, які можна надсилати електронною поштою, натискаючи адреси. Звичайно, ви можете перетворити їх на адреси електронної пошти з гіперпосиланням, але, цей спосіб буде нудним, якщо потрібно перетворити кілька адрес. У цій статті я розповім про кілька хороших прийомів для вирішення цього завдання.

Перетворити кілька адрес електронної пошти на гіперпосилання за допомогою Формули

Перетворіть кілька електронних адрес у гіперпосилання з кодом VBA


стрілка синя права міхур Перетворити кілька адрес електронної пошти на гіперпосилання за допомогою Формули

З Hyperlink функцію, ви можете швидко перетворити адреси електронної пошти стовпця на гіперпосилання одразу.

1. Введіть цю формулу = гіперпосилання ("mailto:" & A2) в порожню клітинку, де ви хочете помістити результат, див. знімок екрана:

doc перетворює адреси в гіперпосилання 1

2. Потім перетягніть маркер заповнення до клітинок, в яких ви хочете містити цю формулу, і всі адреси електронної пошти стануть клікабельними гіперпосиланнями, як показано на наступному знімку екрана:

doc перетворює адреси в гіперпосилання 2


стрілка синя права міхур Перетворіть кілька електронних адрес у гіперпосилання з кодом VBA

Як бачите, використовуючи наведену вище формулу, перед кожною адресою електронної пошти буде додано рядок “mailto:”, якщо ви не хочете mailto: у межах адрес, такий код VBA може зробити вам послугу.

1. Утримуйте клавішу Alt + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код VBA: перетворення кількох електронних адрес у гіперпосилання

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. Після вставки коду, натисніть F5 клавішею цього коду, і з’явиться підказка з нагадуванням про вибір діапазону даних, який ви хочете використовувати, див. знімок екрана:

doc перетворює адреси в гіперпосилання 3

4. А потім клацніть OK, усі вибрані адреси електронної пошти перетворено на адреси з гіперпосиланням, див. знімок екрана:

doc перетворює адреси в гіперпосилання 4


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (7)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я не можу знайти пошук, який перетворює клітинки на гіперпосилання.
Цей коментар був мінімізований модератором на сайті
ти зірка, це спрацювало чудово. завдяки мільйонів
Цей коментар був мінімізований модератором на сайті
Я перебуваю в середовищі MAC, тому у мене немає клавіші ALT. Будь-які інші ідеї?
Цей коментар був мінімізований модератором на сайті
Еквівалентом клавіші ALT є клавіша команди (розташована зліва від клавіші Option).

Обидві ці клавіші розташовані зліва від пробілу.
Цей коментар був мінімізований модератором на сайті
Відмінно працює в Excel 2003! Велике спасибі!
Цей коментар був мінімізований модератором на сайті
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln cann...

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

Може хто допоможе мені?
Цей коментар був мінімізований модератором на сайті
Привіт, kk.operator

Щоб вирішити вашу проблему, застосуйте наступний код:

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


Будь ласка, спробуйте, сподіваюся, це допоможе вам!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL