KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de metin dizisinden E-posta adreslerini çıkar – Detaylı rehber

YazarXiaoyang Değiştirme Tarihi

Excel'de içe aktarılmış verilerle veya karışık metin dizileriyle çalışırken, e-posta adreslerini hızlı ve doğru bir şekilde ayıklamanız gerekebilir. İster diğer metinlerle karışmış bir e-posta listesiyle çalışıyor olun, ister büyük bir veri kümesinden e-posta adreslerini çekmeniz gerekiyor olsun, işinizi kolaylaştıracak çeşitli etkili yöntemler mevcuttur. Bu rehberde, Flash Fill (Hızlı Doldurma), Kutools for Excel, formüller, kullanıcı tanımlı işlevler ve VBA kodu dahil olmak üzere metin dizilerinden e-posta adreslerini ayıklamanın farklı tekniklerini adım adım inceleyeceksiniz. Her yöntem, ihtiyaçlarınıza ve verinizin karmaşıklığına göre size özel avantajlar sunar.

E-posta adreslerini çıkarmak için Excel'de karışık metin dizelerinin ekran görüntüsü

Flash Fill ile metin dizisinden E-posta adreslerini çıkar

Excel’in Hızlı Doldurma özelliği, tanımladığınız kalıplara göre verileri otomatik olarak biçimlendirmenize veya çıkartmanıza olanak tanır. Bu bölümde, karışık verilerden oluşan bir sütundan e-posta adreslerini nasıl çıkarabileceğinizi göstereceğiz. Bu yöntem, özellikle çeşitli metin türlerini içeren listelerle çalışırken ve yalnızca e-posta adreslerini ayıklamak istediğinizde son derece kullanışlıdır.

  1. İlk hücreye (örneğin B2), E-posta Adresi’nin görünmesini istediğiniz bitişik sütunda tıklayın.
  2. Sütun A’daki ilgili satırdan E-posta Adresi’yi elle yazın ve ardından Enter tuşuna basın.
    Örneğin, A2 hücresi "ana varela@gmail.com" içeriyorsa, B2 hücresine " ana varela@gmail.com " yazın.
    Hızlı Doldurma kullanmadan önce Excel'de bir e-posta adresinin manuel olarak girildiğini gösteren ekran görüntüsü
  3. B3 hücresinde kalın ve Hızlı Doldurma özelliğini etkinleştirmek için "Ctrl + E" tuşlarına basın.
    Excel, Sütun B’nin geri kalanını otomatik olarak E-posta adreslerini çıkar ile dolduracaktır.
    Excel'de Hızlı Doldurma kullanılarak çıkarılan e-posta adreslerinin GIF'i
Notlar:
  • Hızlı Doldurma özelliği, Excel 2013 ve sonraki sürümlerde mevcuttur. Excel 2010 veya daha eski bir sürüm kullanıyorsanız bu özelliğe erişemeyebilirsiniz.
  • Hızlı Doldurma özelliğini uyguladığınız hücrelerin biçimlendirmesinin “Metin” olarak ayarlandığından emin olun; bu sayede istenmeyen biçimlendirme sorunlarını önleyebilirsiniz.

Kutools ile tek tıklamayla toplu olarak metin dizisinden E-posta adreslerini çıkar

E-posta adreslerini çıkarırken, Kutools for Excel’in “E-posta adreslerini çıkar” özelliği, Excel’in Hızlı Doldurma özelliğine güçlü bir alternatif sunar. Hızlı Doldurma kalıp tanımayı manuel olarak gerçekleştirirken, Kutools for Excel bu süreci tek tıkla otomatikleştirerek büyük veri kümelerini verimli şekilde işlemenizi sağlar. Bu araç, yalnızca e-posta çıkarma işlemini basitleştirmekle kalmaz; özellikle karmaşık veya tutarsız veri setleriyle çalışırken doğruluk ve hız da garantiler.

Kutools for Excelkarmaşık görevleri kolaylaştırmak, yaratıcılığı ve verimliliği artırmak için 300'den fazla gelişmiş özelliğe sahiptir.Yapay zeka yetenekleriyle entegre, Kutools görevleri hassasiyetle otomatikleştirerek veri yönetimini zahmetsiz hale getirir.Kutools for Excel hakkında ayrıntılı bilgi…         Ücretsiz deneme…

Kutools for Excel’yi indirip yükledikten sonra, lütfen aşağıdaki adımları izleyin:

  1. E-posta adreslerini çıkarmak istediğiniz hücre aralığını seçin. Ardından “Kutools” > “Metin” > “E-posta adreslerini çıkar” yolunu izleyin.
  2. Açılan “E-posta adreslerini çıkar” iletişim kutusunda, e-posta adreslerinin alınacağı hücreyi seçin ve Tamam’a tıklayın.
    Kutools E-posta Adresi Çıkar özelliğinin çalışırken ekran görüntüsü
Sonuç

Ardından, Aralık Seç içindeki her bir hücredeki tüm e-posta adresleri anında çıkarılır.

Kutools kullanılarak e-posta çıkarımı sonuçlarını gösteren ekran görüntüsü

Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin

Formül ile metin dizisinden E-posta adreslerini çıkar

Burada, Excel’de metinden yalnızca e-posta adresini ayıklamak için kullanabileceğiniz uzun bir formül paylaşacağım. Lütfen aşağıdaki adımları izleyin:

1. Bitişik B1 hücresine aşağıdaki formülü girin:

=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&," ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1)))

Excel'de e-posta adreslerini çıkarmak için bir formül gösteren ekran görüntüsü

2. Ardından Enter tuşuna basın, B1 hücresini seçin ve formülü uygulamak istediğiniz aralığa kadar doldurma tutamacını sürükleyin. Böylece belirtilen aralıktaki tüm e-posta adresleri metin dizisinden çıkarılır. Ekran görüntüsüne bakın:

Excel'de bir formül kullanılarak çıkarılan e-posta adreslerinin ekran görüntüsü

Notlar:

1. E-posta adresinden sonra gelen noktalama işaretleri de kaldırılacaktır.

2. Hücreler e-posta adresi içermiyorsa, formül hata değerleri döndürecektir.

3. Bir hücrede birden fazla e-posta adresi varsa, formül yalnızca ilkini çıkarır.

Kullanıcı Tanımlı İşlev ile metin dizisinden E-posta adreslerini çıkar

Yukarıdaki formülün yanı sıra, Kullanıcı Tanımlı İşlev de metin dizisinden e-posta adresi çıkarmanıza yardımcı olabilir.

1. "ALT + F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Ekle" > "Modül" yolunu izleyin ve aşağıdaki makroyu Modül penceresine yapıştırın.

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. Ardından kodu kaydedin ve bitişikteki boş bir hücreye =ExtractEmailFun(A1) formülünü girin; ekran görüntüsüne göz atın:

Excel'de e-posta adreslerini çıkarmak için kullanıcı tanımlı bir işlevi gösteren ekran görüntüsü

4. Ardından Enter tuşuna basın, B1 hücresini seçin ve formülü ihtiyacınız olan aralığa kadar doldurma tutamacını sürükleyin. Böylece tüm e-posta adresleri hücre metninden çıkarılmış olur. Ekran görüntüsüne bakın:

Excel'de kullanıcı tanımlı bir işlev kullanılarak çıkarılan e-posta adreslerinin ekran görüntüsü

Notlar:

1. Hücrelerde e-posta adresi yoksa boş hücreler görüntülenir.

2. Bir hücrede birden fazla e-posta adresi varsa, tüm e-posta adresleri çıkarılacaktır.

VBA kodu ile metin dizisinden E-posta adreslerini çıkar

Yukarıdaki formüller yorucu geliyorsa, aşağıdaki VBA kodu e-posta adreslerini hızlıca çıkarmanıza yardımcı olabilir.

1. "ALT + F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.

2. "Ekle" > "Modül" yolunu izleyin ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA: Metin dizisinden E-posta adreslerini çıkar

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan iletişim kutusunda VBA’yı uygulamak istediğiniz aralığı seçin; ekran görüntüsüne bakın:

Excel'de VBA ile e-posta çıkarımı için aralık seçimini gösteren ekran görüntüsü

4. Ardından **Tamam**’a tıklayın; böylece seçili metin dizilerinden e-posta adresi çıkarılmış olur. Ekran görüntülerine göz atın:

VBA kullanarak e-posta çıkarımı yapılmadan önceki orijinal metni gösteren ekran görüntüsüOkExcel'de VBA koduyla e-postalar çıkarıldıktan sonraki sonuçların ekran görüntüsü

Notlar:

1. Hücrelerde e-posta adresi yoksa boş hücreler görüntülenir.

2. Bir hücrede birden fazla e-posta adresi varsa, tüm e-posta adresleri çıkarılacaktır.

3. Çıkarılan e-postalar orijinal verilerin üzerine yazıldığı için, verilerinizi önceden yedeklemeniz önerilir.

mavi sağ ok baloncuğu Demo: Kutools for Excel ile metin dizisinden E-posta adreslerini çıkar

 
Kutools for Excel: Parmaklarınızın ucunda 300 kullanışlı araç! Daha akıllı ve daha hızlı çalışma için yapay zekâ destekli özellikleri deneyin!Hemen İndirin!

İlgili makale:

Excel'de birden fazla e-posta adresinden alan adlarını nasıl çıkarabilirsiniz?

En İyi Office Üretkenlik Araçları

🤖KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi’i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
Süper ARA:Çoklu Kriterli Dikey Arama (VLookup)  |  Çoklu Değerli Dikey Arama (VLookup)  |   Birden Fazla Sayfada Dikey Arama (VLookup)   |   Bulanık Eşleme…
Gelişmiş Açılır Liste:Açılır Liste Hızlıca Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste…
Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
En Çok Kullanılan 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ başka dillerde de desteklenir!

Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…

Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.

  • Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
  • Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Tüm Kutools eklentileri — tek bir kurulum dosyasında!

Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.

ExcelWordOutlookTabsPowerPoint
  • Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
  • Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
  • Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
  • 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
  • En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar