Ինչպե՞ս Excel- ում բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների:
Եթե աշխատանքային էջում ունեք պարզ տեքստային էլփոստի հասցեների ցուցակ, և այժմ ցանկանում եք փոխել այս էլեկտրոնային հասցեները հիպերհղումների, որոնք կարող եք նամակներ ուղարկել ՝ հասցեները սեղմելով: Իհարկե, դրանք կարող եք վերափոխել գերհաղորդակցված էլ. Փոստի հասցեների, բայց այս մեթոդը ձանձրալի կլինի, եթե վերափոխման համար անհրաժեշտ բազմաթիվ հասցեներ լինեն: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման մի քանի լավ հնարքների մասին:
Formula- ի միջոցով բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների
Փոխակերպել բազմաթիվ էլփոստի հասցեներ VBA կոդով հղումների
Formula- ի միջոցով բազմաթիվ էլփոստի հասցեներ փոխարկել հղումների
Հետ Գերկապի գործառույթը, դուք կարող եք արագորեն փոխել սյունակի էլփոստի հասցեները միանգամից հիպերհղված հասցեների:
1, Մուտքագրեք այս բանաձևը = գերհղում ("mailto:" & A2) դատարկ բջիջի մեջ, որտեղ ցանկանում եք տեղադրել արդյունքը, տես նկարի նկարը.
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 այս կոդի բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK, բոլոր ընտրված էլփոստի հասցեները վերափոխվել են հիպերհղված հասցեների, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: