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

Как преобразовать несколько адресов электронной почты в гиперссылки в Excel? 

Если у вас есть список адресов электронной почты в виде обычного текста на листе, и теперь вы хотите преобразовать эти адреса электронной почты в гиперссылки, которые можно отправлять по электронной почте, щелкая адреса. Конечно, вы можете преобразовать их в адреса электронной почты с гиперссылками, но этот метод будет утомительным, если необходимо преобразовать несколько адресов. В этой статье я расскажу о некоторых хороших приемах для решения этой задачи.

Преобразование нескольких адресов электронной почты в гиперссылки с помощью формулы

Преобразование нескольких адресов электронной почты в гиперссылки с кодом VBA


стрелка синий правый пузырь Преобразование нескольких адресов электронной почты в гиперссылки с помощью формулы

Для Гиперссылка Вы можете быстро преобразовать адреса электронной почты столбца в адреса с гиперссылками.

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

doc конвертировать адреса в гиперссылки 1

2. Затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите содержать эту формулу, и все адреса электронной почты станут интерактивными гиперссылками, как показано на следующем снимке экрана:

doc конвертировать адреса в гиперссылки 2


стрелка синий правый пузырь Преобразование нескольких адресов электронной почты в гиперссылки с кодом VBA

Как видите, используя приведенную выше формулу, перед каждым адресом электронной почты будет добавлена ​​строка mailto :. Если вы не хотите использовать mailto: внутри адресов, следующий код VBA может оказать вам услугу.

1. Удерживайте Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Код 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я не могу найти функцию преобразования ячеек в гиперссылки.
Этот комментарий был сведен к минимуму модератором на сайте
ты звезда, это сработало отлично. бесконечно благодарен
Этот комментарий был сведен к минимуму модератором на сайте
Я нахожусь в среде MAC, поэтому у меня нет клавиши ALT. Любые другие IEAS?
Этот комментарий был сведен к минимуму модератором на сайте
Эквивалентом клавиши ALT является командная клавиша (расположенная слева от клавиши Option).

Обе эти клавиши расположены слева от пробела.
Этот комментарий был сведен к минимуму модератором на сайте
Отлично работает в Excel 2003! Спасибо большое!
Этот комментарий был сведен к минимуму модератором на сайте
Ichsuche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

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

Может кто поможет мне?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, кк.оператор

Чтобы решить вашу проблему, примените следующий код:

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


Пожалуйста, попробуйте, надеюсь, это поможет вам!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL