Як перетворити декілька адрес електронної пошти на гіперпосилання в Excel?
Якщо у вас на робочому аркуші є список адрес електронної пошти у вигляді простого тексту, ви хочете перетворити ці адреси електронної пошти на гіперпосилання, які можна надсилати електронною поштою, натискаючи адреси. Звичайно, ви можете перетворити їх на адреси електронної пошти з гіперпосиланням, але, цей спосіб буде нудним, якщо потрібно перетворити кілька адрес. У цій статті я розповім про кілька хороших прийомів для вирішення цього завдання.
Перетворити кілька адрес електронної пошти на гіперпосилання за допомогою Формули
Перетворіть кілька електронних адрес у гіперпосилання з кодом VBA
Перетворити кілька адрес електронної пошти на гіперпосилання за допомогою Формули
З Hyperlink функцію, ви можете швидко перетворити адреси електронної пошти стовпця на гіперпосилання одразу.
1. Введіть цю формулу = гіперпосилання ("mailto:" & A2) в порожню клітинку, де ви хочете помістити результат, див. знімок екрана:
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 клавішею цього коду, і з’явиться підказка з нагадуванням про вибір діапазону даних, який ви хочете використовувати, див. знімок екрана:
4. А потім клацніть OK, усі вибрані адреси електронної пошти перетворено на адреси з гіперпосиланням, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!