Bagaimana cara cepat mengekstrak alamat email dari string teks?
Saat Anda mengimpor beberapa alamat email dari lembar kerja Situs web ke Excel, selalu ada teks yang tidak relevan, tetapi sekarang Anda hanya ingin mengekstrak alamat email murni dari string teks (lihat tangkapan layar berikut). Bagaimana Anda bisa dengan cepat hanya mendapatkan alamat email dari teks seluler?
Ekstrak alamat email dari string teks dengan Formula
Di sini saya perkenalkan Anda rumus panjang untuk mengekstrak hanya alamat email dari teks di Excel. Harap lakukan sebagai berikut:
1. Di sel B1 yang berdekatan, masukkan rumus ini = PANGKAS (KANAN (PENGGANTI (KIRI (A1, TEMUKAN ("", A1 & "", TEMUKAN ("@", A1)) - 1), "", REPT ("", LEN (A1))), LEN ( A1))).
2. Lalu tekan Enter kunci, lalu pilih sel B1, dan seret gagang isian ke rentang yang Anda inginkan untuk memuat rumus ini. Dan alamat email dalam rentang tersebut telah diekstrak dari string teks. Lihat tangkapan layar:
Catatan:
1. Tanda baca setelah alamat email juga akan diambil.
2. Jika sel tidak berisi alamat email, rumus akan menampilkan nilai kesalahan.
3. Jika ada lebih dari satu alamat email dalam satu sel, rumus hanya akan mengekstrak alamat pertama.
Ekstrak Beberapa Alamat Email dari string teks
Kutools untuk Excel'S Ekstrak Alamat Email dapat membantu Anda mengekstrak alamat email dari string teks dengan cepat dan nyaman. Klik untuk mengunduh Kutools for Excel!
Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!
Ekstrak alamat email dari string teks dengan User Defined Function
Selain rumus di atas, User Defined Function juga dapat membantu Anda mendapatkan alamat email dari string teks.
1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di jendela modul.
Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If OutStr = "" Then
OutStr = getStr
Else
OutStr = OutStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
ExtractEmailFun = OutStr
End Function
3. Kemudian simpan kodenya dan masukkan rumusnya = ExtractEmailFun (A1) di sel kosong yang berdekatan, lihat tangkapan layar:
4. Lalu tekan Enter kunci, pilih sel B1, dan seret gagang isian ke kisaran yang Anda perlukan rumusnya. Dan semua alamat email telah diekstrak dari teks sel. Lihat tangkapan layar:
Catatan:
1. Jika sel tidak memiliki alamat email, ini akan mengungkapkan sel kosong.
2. Jika ada lebih dari satu alamat email dalam satu sel, semua email akan diekstrak.
Ekstrak alamat email dari string teks dengan kode VBA
Jika Anda merasa rumus di atas merepotkan Anda, kode VBA berikut ini bisa membantu Anda mengekstrak alamat email sekaligus.
1. Tahan ALT + F11 kunci, dan itu membuka a Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.
VBA: ekstrak alamat email dari string teks
Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
extractStr = arr(i, j)
outStr = ""
Index = 1
Do While True
Index1 = VBA.InStr(Index, extractStr, "@")
getStr = ""
If Index1 > 0 Then
For p = Index1 - 1 To 1 Step -1
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = Mid(extractStr, p, 1) & getStr
Else
Exit For
End If
Next
getStr = getStr & "@"
For p = Index1 + 1 To Len(extractStr)
If Mid(extractStr, p, 1) Like CheckStr Then
getStr = getStr & Mid(extractStr, p, 1)
Else
Exit For
End If
Next
Index = Index1 + 1
If outStr = "" Then
outStr = getStr
Else
outStr = outStr & Chr(10) & getStr
End If
Else
Exit Do
End If
Loop
arr(i, j) = outStr
Next
Next
WorkRng.Value = arr
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan Anda harus memilih rentang yang ingin Anda gunakan VBA di dialog yang muncul, lihat tangkapan layar:
4. Lalu klik OK, dan alamat email telah diekstrak dari string teks yang dipilih. Lihat tangkapan layar:
![]() |
![]() |
![]() |
Catatan:
1. Jika sel tidak memiliki alamat email, itu akan mengungkapkan sel kosong.
2. Semua email akan diekstrak, jika ada lebih dari satu alamat email dalam satu sel.
3. Email yang diekstrak akan menutupi data asli, jadi sebaiknya backup data terlebih dahulu jika perlu.
Ekstrak alamat email dari string teks dengan Kutools for Excel dengan satu klik
Metode di atas terlihat agak rumit untuk pemula Excel kami, di sini, saya dapat merekomendasikan Anda alat yang cepat dan mudah- Kutools untuk Excel, Dengan yang Ekstrak Alamat Email utilitas, Anda dapat mengekstrak alamat email dari string teks tanpa banyak usaha.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:
1. Pilih sel yang berisi string teks.
2. Klik Kutools > Teks > Ekstrak Alamat Email, lihat tangkapan layar:
3. Dan a Ekstrak Alamat Email kotak dialog akan muncul, pilih sel tempat Anda ingin meletakkan hasilnya, lihat tangkapan layar:
4. Lalu klik OK tombol, semua alamat email telah diekstrak dari string teks, lihat tangkapan layar:
Klik untuk Mengunduh dan uji coba gratis Kutools for Excel Sekarang!
Demo: Ekstrak alamat email dari string teks dengan Kutools for Excel
Artikel terkait:
Bagaimana cara mengekstrak domain dari beberapa alamat email di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
![Cuplikan Layar Excel (dengan Office Tab diinstal)](https://cdn.extendoffice.com/images/stories/kte-module/officetab-bottom-02.gif)
![Rob](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Skeleton](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![avat](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Jack](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Daniel](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Donna](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![skyyang](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![vivia.santos.ctrl@gmail.com](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Jim Butler](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![ultraswiftventures@gmail.com](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Pa](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)