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

في Excel ، ستزيل جميع القيم المكررة وتتحرك لأعلى عند تطبيق وظيفة إزالة التكرارات كما هو موضح في لقطة الشاشة 1. ومع ذلك ، في بعض الحالات ، قد ترغب في إزالة التكرارات مع الاحتفاظ ببقية قيم الصف كما هو موضح في لقطة الشاشة 2. الآن ، في هذه الحالة ، سأقدم بعض الحيل حول حذف التكرارات مع الاحتفاظ بالباقي في Excel.

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

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

قم بإزالة التكرارات مع الاحتفاظ بباقي قيم الصف باستخدام Kutools for Excel (خطوتان)

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

باستخدام الصيغة ووظيفة التصفية ، يمكنك إزالة التكرارات بسرعة مع الاحتفاظ بالراحة.

1. حدد خلية فارغة بجوار نطاق البيانات ، D2 على سبيل المثال ، اكتب الصيغة = A3 = A2، اسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا التي تحتاجها. انظر لقطة الشاشة:

2. حدد كل نطاق البيانات بما في ذلك خلية الصيغة ، وانقر البيانات > تصفية لتمكين تصفية وظيفة. انظر لقطة الشاشة:

3. انقر على في رمز التصفية في العمود D (عمود الصيغة) ، وتحقق TURE من القائمة المنسدلة ، انظر الصورة:

4. انقر OK، وبعد ذلك تم إدراج جميع التكرارات ، وحدد جميع القيم المكررة ، اضغط على حذف مفتاح لإزالتها. انظر لقطة الشاشة:

5. انقر البيانات > تصفية تعطيل تصفية، وقم بإزالة الصيغ حسب حاجتك. يمكنك رؤية جميع التكرارات قد تمت إزالتها ويتم الاحتفاظ ببقية القيم في الصف.

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

في Excel ، يوجد رمز VBA يمكنه أيضًا إزالة التكرارات مع الاحتفاظ ببقية قيم الصف.

1. صحافة ALT + F11 مفاتيح للعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > مجمع نموذجيهـ ، والصق الكود أدناه في ملف وحدة.

فبا: إزالة التكرارات مع الاحتفاظ بقيم الصفوف المتبقية

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

3. صحافة F5 مفتاح لتشغيل الرمز ، يظهر مربع حوار لتذكيرك بتحديد نطاق لإزالة القيم المكررة منه. انظر لقطة الشاشة:

4. انقر OK، الآن تمت إزالة القيم المكررة من التحديد وترك خلايا فارغة.

قم بإزالة التكرارات مع الاحتفاظ بباقي قيم الصف باستخدام Kutools for Excel

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

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

الطريقة الأولى: دمج نفس الخلايا (خطوتان)

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

2. ثم تم دمج القيم المكررة في خلية واحدة. وانقر فوق الرئيسية > دمج وتوسيط > فك دمج الخلايا لتقسيمها. انظر لقطة الشاشة:

الآن تم عرض النتيجة على النحو التالي:

الطريقة الثانية حدد الخلايا المكررة والفريدة (2 خطوات)

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

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

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

4. ثم اضغط حذف مفتاح لإزالة القيم المكررة المحددة.

  قم بإزالة التكرارات ولكن احتفظ بباقي الصف

تلميح: دوامة كوتولس ل إكسيلالصورة الجمع بين الصفوف المتقدمة الأداة المساعدة ، يمكنك دمج القيم المكررة ثم إجراء بعض العمليات الحسابية في عمود آخر كما هو موضح أدناه لقطة الشاشة. إنها تعمل بكامل طاقتها دون قيود 30 أيام،يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

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

اقرأ أكثر... تحميل مجاني ... شراء...