كيف يمكنني استخراج الرمز البريدي من قائمة العناوين في Excel؟
عند إدارة معلومات العملاء في Excel، من الشائع أن تحتوي قائمة العناوين الكاملة على تفاصيل الشارع والرمز البريدي (الخاص بالولايات المتحدة). إذا كنت بحاجة إلى استخراج الرموز البريدية فقط من هذه العناوين—سواء لأغراض إنشاء قوائم البريد الإلكتروني، أو التحليل الإقليمي، أو تنسيق البيانات—فإن فصلها يدويًّا واحدة تلو الأخرى قد يكون عملية شاقة ومعرضة للخطأ، خاصة عند التعامل مع مجموعات بيانات كبيرة. لحسن الحظ، يوفّر Excel طرقًا فعّالة لاستخراج عدة رموز بريدية دفعة واحدة بسرعة ودقة دون الحاجة إلى جهد يدوي. يقدم هذا المقال إرشادات خطوة بخطوة لاستخراج الرموز البريدية من العناوين باستخدام صيغة Excel وحلٍّ يعتمد على ماكرو VBA.
استخراج الرمز البريدي باستخدام صيغة في Excel
استخراج الرمز البريدي باستخدام دالة معرّفة من قِبل المستخدم في Excel
استخراج الرمز البريدي باستخدام صيغة في Excel
في العديد من قوائم العناوين الشائعة، يظهر الرمز البريدي في نهاية سلسلة العنوان ولا يتجاوز طوله 8 أحرف. وتُعد هذه الطريقة الأنسب عندما تتبع جميع العناوين في قائمتك تنسيقًا متسقًا، ويكون الرمز البريدي دائمًا العنصر الأخير في كل عنوان، مفصولًا بمسافات.
لمستخراج الرمز البريدي بسرعة باستخدام صيغة، اتبع الخطوات التالية:
1. حدد الخلية الفارغة التي تريد أن يظهر فيها الرمز البريدي (مثلًا، B1 إذا كان عنوانك في A1)، ثم أدخل الصيغة التالية:
=MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1))2. اضغط على مفتاحEnter. سيظهر الرمز البريدي من العنوان الموجود في الخلية A1 في الخلية المحددة.
3. لتطبيق هذه الصيغة على عناوين أخرى، حدد الخلية التي تحتوي على الصيغة، ثم اسحب مقبض التعبئة (fill handle) لأسفل على طول العمود لتغطية جميع صفوف العناوين، وسيقوم Excel تلقائيًّا باستخراج الرمز البريدي لكل عنوان.
تلميح: تعتمد هذه الصيغة على افتراض أن الرمز البريدي هو العنصر الأخير بعد آخر مسافة في سلسلة العنوان. إذا كانت عناوينك منظمة بشكل مختلف—مثل ظهور الرموز البريدية في المنتصف أو فصلها بفواصل—فقد لا تُعطي هذه الصيغة النتيجة الصحيحة. ولتوسيع هذه الطريقة لتشمل الرموز البريدية الدولية أو تنسيقات مخصصة، قد تحتاج إلى صيغة مختلفة أو أكثر تقدمًا، أو جرّب حل VBA أدناه.
استخراج الرمز البريدي باستخدام دالة معرّفة من قِبل المستخدم في Excel
إذا كانت بيانات العناوين الخاصة بك أكثر تعقيدًا أو غير متسقة، أو تحتوي على رموز بريدية بتنسيقات ومواقع مختلفة داخل السلسلة كما في لقطة الشاشة التالية، فإن ماكرو VBA يوفّر خيارات استخراج أكثر مرونة. وتتيح هذه الطريقة الآلية معالجة سريعة لعمود العناوين بالكامل لعزل الرموز البريدية وإرجاعها بدقة، مما يوفّر وقتك الثمين ويقلل الجهد اليدوي بشكل كبير.
1. اضغط علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذة VBA، انقر علىInsert > Module لإنشاء وحدة جديدة. انسخ والصق كود VBA التالي في نافذة الوحدة:
Public Function ExtractPostcode(text As String) As String
Dim reg As New RegExp
Dim m As MatchCollection
reg.Pattern = "\b([A-Z]{1,2}\d{1,2}[A-Z]?\s*\d[A-Z]{2}|\d{5}(?:-\d{4})?|\d{6})\b"
reg.IgnoreCase = True
reg.Global = False
If reg.Test(text) Then
Set m = reg.Execute(text)
ExtractPostcode = m(0).Value
Else
ExtractPostcode = ""
End If
End Function3. بعد لصق الكود، اختر في نافذة محرر VBA Tools > References. انظر لقطة الشاشة:
4. في مربع الحوارReferences، حدد خانة الاختيارMicrosoft VBScript Regular Expressions 5.5، ثم انقر علىOK.
5. عُد إلى ورقة العمل وأدخل الصيغة التالية: =ExtractPostcode(A2)، ثم اسحب مقبض التعبئة لأسفل لملء الخلايا الأخرى. وستظهر جميع الرموز البريدية دفعة واحدة! انظر لقطة الشاشة:
تلميح: باستخدام هذا الكود، يمكنك استخراج الرموز البريدية لأي دولة أو منطقة في Excel خلال ثوانٍ فقط! فبمجرد تعديل التعبير العادي ليتوافق مع قواعد الرمز البريدي في منطقتك المستهدفة، ستتمكن من التكيّف بسرعة مع التنسيقات المختلفة—مثل “SW1A 1AA” في المملكة المتحدة، أو “12345-6789” في الولايات المتحدة، أو “100000” في الصين—ما يعزز كفاءة تنظيف وتحليل بياناتك بشكل كبير.
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل