كيف يمكن إنشاء قائمة فريدة (بدون تكرارات) بسرعة من عمود معيّن في Excel؟
افترض أن لديك قائمة أسماء تحتوي على قيم مكررة، وترغب الآن في إنشاء قائمة جديدة بأسماء فريدة من هذا العمود المحدد. فكيف يمكنك إنجاز هذه المهمة في Excel؟ يقدم لك هذا البرنامج التعليمي بعض الحيل الفعّالة التي تساعدك على إنشاء قائمة فريدة بسرعة من عمود معين.
إنشاء قائمة فريدة من عمود باستخدام التصفية المتقدمة
إنشاء قائمة فريدة من عمود باستخدام VBA
إنشاء قائمة فريدة بسرعة من عمود باستخدام Kutools لـ Excel ![]()
إنشاء قائمة فريدة من عمود باستخدام التصفية المتقدمة
في Excel، يمكنك استخدام وظيفة التصفية المتقدمة لاستخراج البيانات الفريدة من القائمة.
1. انقر فوقبيانات > متقدم. راجع لقطة الشاشة:

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

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

إنشاء قائمة فريدة من عمود باستخدام 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. في مربع الحوار الظاهر، حدد القائمة التي تحتوي على القيم المكررة، ثم انقر فوقموافق، وبعد ذلك حدد خلية لوضع النتيجة فيها. راجع لقطات الشاشة:
>>>
3. الآن، تم إنشاء قائمة تحتوي على أسماء فريدة.
إنشاء قائمة فريدة بسرعة من عمود باستخدام Kutools لـ Excel
في الواقع، باستخدام ميزةتحديد الخلايا المكررة/الفريدةمنKutools لـ Excel، يمكنك إنشاء قائمة فريدة بسرعة من أي عمود تحدده.
1. حدد القائمة (يمكنك اختياريًا تضمين رأس العمود) التي تريد إنشاء قائمة فريدة بناءً عليها، ثم انقر فوقKutools > تحديد > تحديد الخلايا المكررة/الفريدة. راجع لقطة الشاشة:

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

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

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

تلميح:إذا كنت تريد تحديد القيم مع مراعاة حالة الأحرف (Case Sensitive)، فما عليك سوى تفعيل خيارحساسية الحالةفي مربع حوارتحديد الخلايا المكررة/الفريدة.
باستخدام ميزةتحديد الخلايا المكررة/الفريدة، يمكنك تحديد المكررات بما في ذلك الأولى، أو تحديد القيم المكررة باستثناء الأولى، أو تحديد جميع القيم الفريدة.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل