Skip to main content

كيفية إنشاء قائمة فريدة بسرعة (إزالة التكرارات) من عمود معين في Excel؟

Author: Sun Last Modified: 2025-05-30

لنفترض أن لديك قائمة أسماء تحتوي على تكرارات، والآن تريد إنشاء قائمة جديدة من الأسماء الفريدة من هذا العمود المعطى، كيف يمكنك حل هذه المشكلة في Excel؟ يقدم لك هذا البرنامج التعليمي بعض الحيل التي يمكن أن تساعدك على إنشاء قائمة فريدة بسرعة من عمود معين.

إنشاء قائمة فريدة من عمود باستخدام المرشح المتقدم

إنشاء قائمة فريدة من عمود باستخدام VBA

إنشاء قائمة فريدة بسرعة من عمود باستخدام Kutools لـ Excel good idea3


arrow blue right bubble إنشاء قائمة فريدة من عمود باستخدام المرشح المتقدم

في Excel، يمكنك تطبيق وظيفة المرشح المتقدم لتصفية البيانات الفريدة من قائمة.

1. انقر فوق البيانات > متقدم. انظر إلى لقطة الشاشة:

A screenshot of the Data tab in Excel, showing the Advanced Filter option

2. في مربع حوار المرشح المتقدم، قم بما يلي:

(1) اختر خيار نسخ إلى موقع آخر وخيار السجلات الفريدة فقط؛

(2) حدد عمود التكرارات في مربع النص النطاق القائمة، واختر خلية لوضع القائمة الفريدة في مربع النص نسخ إلى.

A screenshot of the Advanced Filter dialog

3. انقر فوق موافق. الآن تم إنشاء القائمة الفريدة. انظر إلى لقطة الشاشة:

A screenshot of the unique list created in Excel after applying the Advanced Filter


arrow blue right bubble إنشاء قائمة فريدة من عمود باستخدام VBA

في Excel، يمكنك أيضًا استخدام كود VBA لإنشاء قائمة فريدة من عمود معين.

1. اضغط على Alt + F11 لعرض نافذة Microsoft Visual Basic for Applications، ثم انقر فوق إدراج > وحدة، وبعد ذلك انسخ والصق الكود التالي VBA في نافذة الوحدة الجديدة.

VBA: إنشاء قائمة فريدة من عمود معين.

Sub CreateUniqueList()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
InputRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=OutRng, Unique:=True
End Sub

2. اضغط على مفتاح F5 أو زر ال تشغيل لتمكين كود VBA، وفي الحوار المنبثق، حدد القائمة التي تحتوي على التكرارات وانقر فوق موافق، ثم حدد خلية لوضع النتيجة. انظر إلى لقطات الشاشة:

A screenshot showing the dialog where a user selects the range of data   >>>   A screenshot showing the dialog where a user selects the output cell to create a unique list

3. الآن، تم إنشاء قائمة بأسماء فريدة.


arrow blue right bubble إنشاء قائمة فريدة بسرعة من عمود باستخدام Kutools لـ Excel

في الواقع، باستخدام ميزة تحديد المكررات والخلايا الفريدة في Kutools لـ Excel، يمكنك أيضًا إنشاء قائمة فريدة بسرعة من عمود معين.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

1. حدد القائمة (اختياري تحديد رأس العمود) التي تريد إنشاء قائمة فريدة بناءً عليها، وانقر فوق Kutools > تحديد > تحديد المكررات والخلايا الفريدة. انظر إلى لقطة الشاشة:

A screenshot showing the 'Select Duplicate & Unique Cells' option in the Kutools tab in Excel

2. في الحوار المنبثق، اختر القيم الفريدة (بما في ذلك التكرار الأول) تحت قسم القاعدة. انظر إلى لقطة الشاشة:

A screenshot of the Select Duplicate & Unique Cells dialog

3. انقر فوق موافق، ثم سيظهر مربع حوار ينبهك بعدد الخلايا المختارة. انظر إلى لقطة الشاشة:

A screenshot of the dialog reminding the number of selected cells after selecting unique values

4. انقر فوق موافق، ثم اضغط على Ctrl + C لنسخ الخلايا المختارة وحدد خلية واضغط على Ctrl + V لوضع النتيجة.

A screenshot of the copied unique list being pasted into a new location in Excel

تلميح: إذا كنت تريد تحديد القيم بطريقة حساسة لحالة الأحرف، يمكنك اختيار خيار حساس لحالة الأحرف في مربع الحوار تحديد المكررات والخلايا الفريدة.

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

Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن

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

🤖 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%، ويقلل مئات النقرات بالماوس يومياً!