استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية في Excel – دليلٌ شامل

عند التعامل مع بيانات مستوردة أو سلاسل نصية مختلطة في Excel، قد تجد نفسك بحاجة إلى استخراج عناوين البريد الإلكتروني بسرعة وبدقة. سواءً كنت تعمل مع قائمة تحتوي على عناوين بريد إلكتروني ممزوجة بنصوص أخرى، أو تحتاج إلى استخراجها من مجموعة بيانات كبيرة، فثمة عدة طرق فعّالة تنجز المهمة بكفاءة. يأخذك هذا الدليل عبر تقنيات متنوعة لاستخراج عناوين البريد الإلكتروني من السلاسل النصية، بما في ذلك استخدام الملء الفوري (Flash Fill)، وKutools لـ Excel، والصيغ، والدوال المُعرَّفة من قبل المستخدم (UDF)، وشفرة VBA—كلٌّ منها يقدم مزايا مختلفة تناسب احتياجاتك وتعقيد بياناتك.

استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية باستخدام الملء الفوري (Flash Fill)

توفر ميزة الملء الفوري (Flash Fill) في Excel وسيلةً سريعة وفعّالة لتنسيق البيانات أو استخراجها تلقائيًّا بناءً على الأنماط التي تحددها. في هذا القسم، سنرشدك خطوة بخطوة إلى كيفية استخدام الملء الفوري لاستخراج عناوين البريد الإلكتروني من عمود يحتوي على بيانات مختلطة — وهي طريقة مثالية عندما تكون قائمتك مليئة بأنواع مختلفة من النصوص وتحتاج فقط إلى عناوين البريد الإلكتروني.

1. انقر على الخلية الأولى في العمود المجاور (مثل B2) التي ترغب في أن يظهر فيها عنوان البريد الإلكتروني.
2. اكتب يدويًّا عنوان البريد الإلكتروني من الصف المقابل في العمود A، ثم اضغط Enter.
   على سبيل المثال، إذا احتوت الخلية A2 على «ana varela@gmail.com»، فاكتب « ana varela@gmail.com » في الخلية B2.

   

3. ابقَ في الخلية B3، واضغط «Ctrl + E» لتفعيل الملء الفوري (Flash Fill).
   سيقوم Excel تلقائيًّا بملء باقي العمود B بـاستخراج عناوين البريد الإلكتروني.

   

نقرة واحدة لاستخراج استخراج عناوين البريد الإلكتروني دفعةً واحدة من سلسلة نصية باستخدام Kutools

عندما يتعلق الأمر باستخراج عناوين البريد الإلكتروني من مجموعة بيانات، تقدِّم ميزة «استخراج عناوين البريد الإلكتروني» في Kutools لـ Excel بديلًا قويًّا للملء الفوري (Flash Fill) في Excel. فبينما يعتمد الملء الفوري على نهج يدوي للتعرُّف على الأنماط، يؤتمت Kutools لـ Excel العملية بنقرة واحدة فقط، مما يجعله الخيار المثالي للتعامل مع كميات كبيرة من البيانات بكفاءة. ولا تقتصر هذه الأداة على تبسيط عملية الاستخراج فحسب، بل تضمن أيضًا الدقة والسرعة، خاصةً عند التعامل مع مجموعات بيانات معقدة أو غير متسقة.

بعد تنزيل Kutools لـ Excel وتثبيته، يُرجى اتباع الخطوات التالية:

1. حدد نطاق الخلايا الذي ترغب في استخراج عناوين البريد الإلكتروني منه، ثم انتقل إلى «Kutools» > «Text» > «استخراج عناوين البريد الإلكتروني».
2. في مربع حوار «استخراج عناوين البريد الإلكتروني» المنبثق، حدد الخلية التي تريد إخراج عنوان البريد الإلكتروني إليها، ثم انقر فوق «موافق».

   

النتيجة

ثم يتم استخراج جميع عناوين البريد الإلكتروني من كل خلية في النطاق المحدد فورًا.

استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية باستخدام صيغة

أقدِّم لك هنا صيغةً مطوَّلةً لاستخراج عنوان البريد الإلكتروني فقط من النص في Excel. يُرجى اتباع الخطوات التالية:

1. في الخلية المجاورة B1، أدخل الصيغة التالية:

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

2. ثم اضغط مفتاح Enter، وبعد ذلك حدد الخلية B1 واسحب مقبض التعبئة إلى النطاق الذي تريد تطبيق الصيغة عليه. وبذلك يكون عنوان البريد الإلكتروني قد استُخرج من السلسلة النصية. انظر لقطة الشاشة:

ملاحظات:

1. سيتم استخراج علامات الترقيم التي تلي عنوان البريد الإلكتروني أيضًا.

2. إذا لم تحتوِ الخلايا على عنوان بريد إلكتروني، فستُظهر الصيغة قيم خطأ.

3. إذا احتوت الخلية على أكثر من عنوان بريد إلكتروني، فستستخرج الصيغة العنوان الأول فقط.

استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية باستخدام دالة مُعرَّفة من قبل المستخدم (UDF)

باستثناء الصيغة المذكورة أعلاه، يمكن لدالة مُعرَّفة من قِبل المستخدم (User Defined Function) أن تساعدك أيضًا في استخراج عنوان البريد الإلكتروني من السلسلة النصية بسهولة.

1. اضغط مع الاستمرار على مفتاحَي «ALT + F11» لفتح نافذة «Microsoft Visual Basic for Applications».

2. انقر فوق «Insert» > «Module»، ثم الصق الماكرو التالي في نافذة الوحدة (Module).

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. بعد ذلك، احفظ الكود وأدخل الصيغة=ExtractEmailFun(A1) في خلية فارغة مجاورة—كما في لقطة الشاشة:

4. ثم اضغط مفتاح Enter، وحدد الخلية B1، واسحب مقبض التعبئة عبر النطاق الذي تريد تطبيق الصيغة عليه. وبذلك يتم استخراج جميع عناوين البريد الإلكتروني من نص الخلية. انظر لقطة الشاشة:

ملاحظات:

1. إذا لم تحتوِ الخلايا على عناوين بريد إلكتروني، فستظهر فارغة.

2. إذا احتوت الخلية على أكثر من عنوان بريد إلكتروني واحد، فسيتم استخراج جميع عناوين البريد الإلكتروني تلقائيًا.

استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية باستخدام شفرة VBA

إذا بدت لك الصيغ السابقة معقدة، فستساعدك شفرة VBA التالية على استخراج عناوين البريد الإلكتروني بسرعة.

1. اضغط مع الاستمرار على مفتاحَي «ALT + F11» لفتح نافذة «Microsoft Visual Basic for Applications».

2. انقر فوق «Insert» > «Module»، ثم الصق الماكرو التالي في نافذة الوحدة (Module).

VBA: استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية

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. بعد ذلك، اضغط مفتاح F5 لتشغيل هذا الكود، وستُطلب منك تحديد النطاق الذي ترغب في تطبيق شفرة VBA عليه في مربع الحوار المنبثق. انظر لقطة الشاشة:

4. ثم انقر فوق «موافق»، ليتم بذلك استخراج عنوان البريد الإلكتروني من سلاسل النصوص المحددة. راجع لقطات الشاشة:

ملاحظات:

1. إذا لم تحتوِ الخلايا على عنوان بريد إلكتروني، فستظهر فارغة.

2. سيتم استخراج جميع عناوين البريد الإلكتروني إذا احتوت الخلية على أكثر من عنوان بريد إلكتروني واحد.

3. ستستبدل عناوين البريد الإلكتروني المستخرَجة البيانات الأصلية، لذا يُوصى بعمل نسخة احتياطية من بياناتك أولًا.

عرض توضيحي: استخراج استخراج عناوين البريد الإلكتروني من سلسلة نصية باستخدام Kutools لـ Excel

مقال ذو صلة:

كيف يمكن استخراج النطاقات (Domains) من عناوين بريد إلكتروني متعددة في Excel؟

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...