Skip to main content

كيفية تصفية القيم بالحرف الأول أو الحرف الأخير في Excel؟

Author: Siluvia Last Modified: 2025-05-30

لتصفية القيم بالحرف الأول أو الحرف الأخير في Excel، نقدم هنا ثلاث طرق. يرجى اتباع البرنامج التعليمي أدناه.

تصفية القيم بالحرف الأول أو الحرف الأخير باستخدام وظيفة التصفية
تصفية القيم بالحرف الأول أو الحرف الأخير باستخدام كود VBA


تصفية القيم بالحرف الأول أو الحرف الأخير باستخدام وظيفة التصفية

يمكنك تصفية القيم بالحرف الأول أو الحرف الأخير باستخدام وظيفة التصفية في Excel.

1. حدد العمود بأكمله الذي تريد تصفية القيم فيه بالحرف الأول أو الحرف الأخير، ثم انقر فوق البيانات > تصفية. شاهد لقطة الشاشة:

A screenshot of applying the Filter option to a column in Excel

2. الآن يتم عرض رمز صغير للقائمة المنسدلة على الخلية الأولى من العمود المحدد. يرجى النقر فوق رمز القائمة المنسدلة > تصفية النصوص > يبدأ بـ / ينتهي بـ. شاهد لقطة الشاشة:

A screenshot showing Text Filters with Begins With and Ends With options

ملاحظات:

1). إذا كنت ترغب في تصفية القيم بالحرف الأول، يرجى النقر فوق الخيار يبدأ بـ في الخطوة 2. في مربع الحوار Custom AutoFilter المنبثق، أدخل الحرف الأول الذي تريد التصفية به في المربع الفارغ بعد يبدأ بـ، وأخيرًا انقر فوق الزر موافق.
على سبيل المثال، إذا قمت بإدخال الحرف “a” في المربع، وبعد النقر فوق زر موافق، سيتم تصفية جميع القيم التي تبدأ بالحرف “a” فورًا.

A screenshot of the Custom AutoFilter dialog for filtering values beginning with a specified letter

2). لتصفية القيم بالحرف الأخير، يرجى النقر فوق الخيار ينتهي بـ في الخطوة 2. وفي مربع الحوار Custom AutoFilter المنبثق، أدخل الحرف الأخير الذي تريد تصفية جميع القيم به في المربع الفارغ بعد ينتهي بـ، وأخيرًا انقر فوق الزر موافق. شاهد لقطة الشاشة:
بعد النقر فوق زر موافق، سيتم تصفية جميع القيم التي تنتهي بالحرف المحدد دفعة واحدة.

A screenshot of the Custom AutoFilter dialog for filtering values ending with a specified character


تصفية القيم بالحرف الأول أو الحرف الأخير باستخدام كود VBA

يمكنك أيضًا استخدام كود VBA لتصفية القيم بالحرف الأول أو الحرف الأخير في Excel.

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic Application.

2. في نافذة Microsoft Visual Basic Application، انقر فوق إدراج > وحدة. ثم انسخ والصق الكود أدناه في نافذة الوحدة.

كود VBA: التصفية بالحرف الأول أو الحرف الأخير

Sub filterbyletter()
	Dim rng01 As Range
	Set rng01 = [A1:A8]
	rng01.Parent.AutoFilterMode = False
	rng01.Columns(1).AutoFilter Field: = 1, Criteria1: = "=a*", VisibleDropDown: = False
End Sub

ملاحظات:

1). في الكود، A1:A8 هو نطاق العمود الذي يحتوي على القيم التي تريد تصفية. يمكنك تغييره بناءً على احتياجاتك.
2). a* يعني أنك ستقوم بتصفية جميع القيم التي تبدأ بالحرف “a”. وإذا كنت ترغب في تصفية جميع القيم التي تنتهي بالحرف “a”، يرجى تغيير a* إلى *a.
3). اضغط على مفتاح F5 لتشغيل الكود. وسيتم تصفية القيم التي تتوافق مع معايير التصفية فورًا.
4). بعد تشغيل هذا الكود، يمكنك مسح التصفية عن طريق النقر فوق البيانات > تصفية. شاهد لقطة الشاشة:

A screenshot of the Filter option in Excel

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

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

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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