Как да конвертирате множество имейл адреси в хипервръзки в Excel?
Ако имате списък с имейл адреси с обикновен текст в работен лист и сега искате да конвертирате тези имейл адреси в хипервръзки, които можете да изпращате имейли, докато щраквате върху адресите. Разбира се, можете да ги конвертирате в имейл адреси с хипервръзки, но този метод ще бъде скучен, ако има няколко адреса, които трябва да бъдат конвертирани. В тази статия ще говоря за някои добри трикове за справяне с тази задача.
Преобразувайте множество имейл адреси в хипервръзки с Formula
Преобразувайте множество имейл адреси в хипервръзки с VBA код
Преобразувайте множество имейл адреси в хипервръзки с Formula
С Hyperlink функция, можете бързо да преобразувате имейл адресите на колоната в адреси с хипервръзки наведнъж.
1. Въведете тази формула =хипервръзка("mailto:"&A2) в празна клетка, където искате да поставите резултата, вижте екранната снимка:
2. След това плъзнете манипулатора за попълване надолу до клетките, които искате да съдържат тази формула, и всички имейл адреси ще станат хипервръзки, върху които може да се кликне, както е показано на следната екранна снимка:
Преобразувайте множество имейл адреси в хипервръзки с VBA код
Както можете да видите, като използвате горната формула, ще бъде добавен низ „mailto:“ пред всеки имейл адрес, ако не искате mailto: в адресите, следният VBA код може да ви направи услуга.
1. Задръжте натиснат Alt + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!