Jak przekonwertować wiele adresów e-mail na hiperłącza w programie Excel?
Jeśli masz listę adresów e-mail w postaci zwykłego tekstu w arkuszu, a teraz chcesz przekonwertować te adresy e-mail na hiperłącza, które możesz wysyłać e-maile, klikając adresy. Oczywiście możesz przekonwertować je na adresy e-mail z hiperłączami, ale ta metoda będzie nudna, jeśli trzeba przekonwertować wiele adresów. W tym artykule omówię kilka dobrych sztuczek, aby poradzić sobie z tym zadaniem.
Konwertuj wiele adresów e-mail na hiperłącza za pomocą Formuły
Konwertuj wiele adresów e-mail na hiperłącza za pomocą kodu VBA
Konwertuj wiele adresów e-mail na hiperłącza za pomocą Formuły
Z Hiperłącze możesz szybko przekonwertować adresy e-mail kolumn na adresy z hiperłączami.
1. Wprowadź tę formułę = hiperłącze („mailto:” & A2) do pustej komórki, w której chcesz umieścić wynik, patrz zrzut ekranu:
2. Następnie przeciągnij uchwyt wypełniania w dół do komórek, które chcesz zawrzeć w tej formule, a wszystkie adresy e-mail stały się klikalnymi hiperłączami, jak pokazano na poniższym zrzucie ekranu:
Konwertuj wiele adresów e-mail na hiperłącza za pomocą kodu VBA
Jak widać, używając powyższego wzoru, przed każdym adresem e-mail zostanie dodany ciąg „mailto:”, jeśli nie chcesz, aby mailto: w adresach następujący kod VBA może wyświadczyć ci przysługę.
1. Przytrzymaj Alt + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.
Kod VBA: konwertuj wiele adresów e-mail na hiperłącza
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. Po wklejeniu kodu naciśnij F5 klucz do tego kodu, a pojawi się okno zachęty przypominające o wyborze zakresu danych, którego chcesz użyć, patrz zrzut ekranu:
4. A następnie kliknij OK, wszystkie wybrane adresy e-mail zostały przekonwertowane na adresy z hiperłączami, zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!