Loncat ke daftar isi utama

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?

doc-extract-email1 -2 doc-extract-email2

Ekstrak alamat email dari string teks dengan Formula

Ekstrak alamat email dari string teks dengan User Defined Function

Ekstrak alamat email dari string teks dengan kode VBA

Ekstrak alamat email dari string teks dengan Kutools for Excel


panah gelembung kanan biru 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))).

doc-extract-email3

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:

doc-extract-email4

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!

doc ekstrak email-1

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!


panah gelembung kanan biru 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:

doc-extract-email5

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:

doc-extract-email6

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.


panah gelembung kanan biru 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:

doc-extract-email7

4. Lalu klik OK, dan alamat email telah diekstrak dari string teks yang dipilih. Lihat tangkapan layar:

doc-extract-email8 -2 doc-extract-email9

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.


panah gelembung kanan biru 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:

doc-extract-email9

4. Lalu klik OK tombol, semua alamat email telah diekstrak dari string teks, lihat tangkapan layar:

doc-extract-email9

Klik untuk Mengunduh dan uji coba gratis Kutools for Excel Sekarang!


panah gelembung kanan biru Demo: Ekstrak alamat email dari string teks dengan 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!

Artikel terkait:

Bagaimana cara mengekstrak domain dari beberapa alamat email di Excel?

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (40)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
You're a genius!!!
This comment was minimized by the moderator on the site
Really helpful to extract emails in a neat way, thank you!
This comment was minimized by the moderator on the site
Malheureusement la première formule donnée se met en erreur....
This comment was minimized by the moderator on the site
Thank you very much, spend only half hour looking for this and save me ten hours of work!
This comment was minimized by the moderator on the site
This is the most useful page I have ever found on Excel - thank you.
This comment was minimized by the moderator on the site
How do you extract multiple email addresses for one cell?
This comment was minimized by the moderator on the site
Hi, Donna,
The second and the third methods in this article can help you to extract multiple Email addresses from one cell, please try, thank you!
This comment was minimized by the moderator on the site
Quando extraído mais que um email usando a macro, como separa-los depois usando uma outra célula ? Ou é possível extrair já separando ?
This comment was minimized by the moderator on the site
Saved me hours of manual parsing. Thank you!
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Hi. This is a great job! I am sure that hundreds of people learned new stuff because of it. But if you just want to extract email addresses, you can use extractemailaddress.com . It seemed simple and quick, and I hav pasted the result in my excel spreadsheet. great!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations