Skip to main content

كيفية إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط في Excel؟

Author: Sun Last Modified: 2025-08-06

يقدم هذا البرنامج التعليمي الحيل لإزالة جميع القيم المكررة من قائمة مع الاحتفاظ بواحدة فقط في Excel، اقرأ التفاصيل:

إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام وظيفة إزالة التكرارات

إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام VBA

إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام Kutools لـ Excel good idea3

دمج جميع الصفوف المكررة والاحتفاظ بالبيانات باستخدام Kutools لـ Excel good idea3


إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام وظيفة إزالة التكرارات

في Excel، يمكن أن تساعدك ميزة إزالة التكرارات على إزالة كل شيء باستثناء قيمة واحدة مكررة.

1. حدد قائمة البيانات التي تحتاجها، ثم انقر فوق البيانات > إزالة التكرارات. انظر لقطة الشاشة:

Remove Duplicates button on the Data tab on the ribbon

2. بعد ذلك، في مربع حوار إزالة التكرارات، قم بتحديد اسم العمود الذي تريد إزالة التكرارات منه، وإذا كانت بياناتك تحتوي على رؤوس، فتأكد أيضًا من تحديد البيانات تحتوي على رؤوس. انظر لقطة الشاشة:

Remove Duplicates dialog

3. انقر فوق موافق. ستظهر نافذة منبثقة تخبرك بعدد التكرارات التي تم إزالتها، فقط أغلقها. الآن تم إزالة جميع التكرارات باستثناء واحد في القائمة.

Success dialog


إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام VBA

إذا كنت مهتمًا بـ VBA، هنا يمكنني أيضًا تقديم كود VBA لحل هذه المهمة.

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

2. انقر فوق إدراج > وحدة، والصق الكود التالي VBA في نافذة الوحدة الجديدة.

VBA: إزالة جميع القيم المكررة مع الاحتفاظ بواحدة.

Sub RemoveAllDeplicateButOne()
    Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:A" & LR).RemoveDuplicates Columns:=1, Header:=Name
End Sub

3. اضغط على مفتاح F5 أو انقر فوق تشغيل لتنفيذ الكود VBA، وسيتم إزالة التكرارات في القائمة الموجودة في العمود A مع الاحتفاظ بواحدة.

نصيحة: في الكود VBA أعلاه، يشير A إلى العمود A، وA1: A يشير إلى نطاق القائمة، يمكنك تغييرها حسب الحاجة.


إزالة جميع القيم المكررة مع الاحتفاظ بواحدة فقط باستخدام Kutools لـ Excel

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

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

بعد تثبيت Kutools لـ Excel مجانًا ، يرجى القيام بما يلي:

1. حدد نطاق البيانات وانقر فوق Kutools > تحديد > تحديد الخلايا المكررة والفريدة. انظر لقطة الشاشة:

Select Duplicate & Unique Cells option on the Kutools tab on the ribbon

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

Select Duplicate & Unique Cells dialog

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

Success dialog

4. سيتم تحديد جميع التكرارات باستثناء الأول، اضغط على مفتاح الحذف لمسحها.

All the duplicates but first one are selected

نصيحة: يمكنك أيضًا إزالة جميع التكرارات مع الاحتفاظ بواحدة باستخدام تحديد الخلايا المكررة والفريدة كما يلي:

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

Select Duplicate & Unique Cells dialog with All unique option checked9

عرض: إزالة جميع التكرارات مع الاحتفاظ بواحدة فقط

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

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

إذا كان لديك بعض البيانات، وما تريده هو دمج الصفوف المكررة ثم الاحتفاظ بالبيانات المقابلة كما هو موضح في لقطة الشاشة أدناه، يمكنك استخدام وظيفة دمج متقدم للصفوف في Kutools لـ Excel.

Illustration of combining duplicate rows and keep the corresponding data

بعد تثبيت Kutools لـ Excel مجانًا ، يرجى القيام بما يلي:

1. حدد البيانات وانقر فوق Kutools > دمج وتقسيم > دمج متقدم للصفوف. انظر لقطة الشاشة:

Advanced Combine Rows option on the Kutools tab on the ribbon

2. في مربع الحوار دمج الصفوف بناءً على عمود، حدد العمود الذي تريد إزالة التكرارات منه وانقر فوق المفتاح الرئيسي لجعله كعمود المفتاح الرئيسي. انظر لقطة الشاشة:

Combine Rows Based on Column dialog with Primary Key button highlighted

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

Combine Rows Based on Column dialog with Combine button highlighted

4. انقر فوق موافق، وستتم دمج الصفوف المكررة والاحتفاظ بالبيانات المقابلة.

Duplicate rows are combined and the corresponding data are kept

عرض: دمج التكرارات مع الاحتفاظ بالبيانات المجاورة

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

مقالات ذات صلة:

أفضل أدوات زيادة الإنتاجية لمجموعة Office

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

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


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

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