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

في Excel، توفّر وظيفةإزالة التكراراتطريقةً مريحةً للتخلّص من القيم المتكررة في القوائم. لكن تظهر مشكلة شائعة عندما تحتوي قائمتك على صفوف فارغة؛ إذ تقوم الوظيفة القياسية بإزالتها أيضًا، مما قد يُخلّ بالهيكل الأصلي لبياناتك عبر سدّ هذه الفراغات. وغالبًا ما تكون هذه المشكلة مزعجةً إذا كنت تستخدم الصفوف الفارغة كفواصل منطقية أو لأغراض التنسيق.

إذا كان هدفك إزالة الإدخالات المكررة معالاحتفاظ بجميع الصفوف الفارغة كما هي تمامًا، فهناك عدة طرق فعّالة تُمكّنك من تنظيف قائمتك دون المساس بالصفوف الفارغة. هذا يضمن إدارة بيانات أكثر احترافية ويحافظ على الهيكل البصري لورقة العمل الخاصة بك. فيما يلي، نعرض لك عدة حلول لتحقيق ذلك في Excel ضمن سيناريوهات مختلفة.

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

تحديد وتمييز المكررات باستخدام تحديد الخلايا المكررة/الفريدة

ماكرو VBA: إزالة التكرارات مع الاحتفاظ بـ صفوف فارغة تلقائياً

صيغة Excel/مرشّح متقدم: استخراج القيم الفريدة مع الاحتفاظ بـ صفوف فارغة

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

لإزالة التكرارات مع الحفاظ على الصفوف الفارغة، ابدأ بتحديد تلك الصفوف ووضع علامة عليها باستخدام عمود مساعد، ثم طبّق أداة «إزالة التكرارات» المدمجة في Excel. تضمن هذه الطريقة الاحتفاظ بالقيم الفريدة دون التأثير على أيٍّ من الصفوف الفارغة الموجودة. ويُعد هذا الحل مثاليًا إذا كنت تسعى إلى سير عمل متكامل داخل Excel يعتمد أساسًا على الإدخال اليدوي، مع ظهور أعمدة مساعدة واضحة.

الخطوة 1.في عمود مجاور (مثلاً، إذا بدأت بياناتك في الخلية A1، فابدأ في B1)، أدخل الصيغة التالية لوضع علامة على صفوف فارغة:

=IF(LEN(TRIM(A1))=0,ROW(),"")

تتحقّق هذه الصيغة مما إذا كانت الخلية A1 فارغة أو تحتوي على مسافات فقط. فإذا كانت كذلك، تُظهر رقم الصف؛ وإلا، تترك الخلية فارغة. اسحب الصيغة لأسفل بجانب جميع الإدخالات في قائمتك لوضع علامة على كل صف فارغ.

ملاحظة:إذا امتدت بياناتك عبر أعمدة متعددة، عدّل المرجع (مثلًا، استخدم)A1 أوB1 حسب الحاجة). ويضمن استخدام دالةTRIM أن الخلايا التي تحتوي على مسافات فقط تُعامل كخلايا فارغة أيضًا.

الخطوة 2.حدد عمود البيانات الأصلي والعمود المساعد الجديد معًا، ثم انتقل إلىبيانات > إزالة التكرارات. في مربع الحوار المنبثق، فعّل مربع الاختيار الخاص بعمود البيانات الأصلي فقط (وليس العمود المساعد)، حتى تُحدَّد التكرارات بناءً على بياناتك المستهدفة.

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

الخطوة 3.سيظهر إشعار يوضح عدد القيم المكررة التي تمت إزالتها. انقرموافقلتأكيد وإغلاق الرسالة.

في هذه المرحلة، ستعرض القائمة جميع القيم الفريدة بالإضافة إلى جميع الصفوف الفارغة التي كانت موجودة مسبقًا. يمكنك حذف العمود المساعد إذا لم تعد بحاجة إليه.

السيناريوهات المناسبة:يُوصى بهذه الطريقة عندما ترغب في استخدام وظائف Excel القياسية فقط وكانت بياناتك بسيطة. ومع ذلك، فهي ليست تلقائية بالكامل إذا كانت بياناتك تُحدَّث باستمرار، إذ يتطلب الأمر تكرار الخطوات يدويًّا. كما يُنصح دائمًا بإنشاء نسخة احتياطية من بياناتك قبل إزالة التكرارات، لأن هذه العملية لا يمكن التراجع عنها بمجرد حفظ الملف وإغلاقه.

استكشاف الأخطاء وإصلاحها:إذا كانت الصفوف الفارغة لا تزال تُزال، فتأكد من أن صيغة العمود المساعد تُحدِّد جميع الأسطر الفارغة بشكل صحيح، وأنك تستخدم عمود البيانات الرئيسي فقط كمفتاح لـ«إزالة التكرارات» في مربع الحوار.

تحديد وتمييز المكررات باستخدام تحديد الخلايا المكررة/الفريدة

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

1. حدد النطاق الذي يحتوي على بياناتك (بما في ذلك الصفوف الفارغة)، ثم انقرKutools > تحديد > تحديد الخلايا المكررة/الفريدة.

2. في مربع حوارتحديد الخلايا المكررة/الفريدة، اخترالتكرارات (ما عدا الأولى)ضمن «القاعدة». يمكنك أيضًا تحديد مربعيتعبئة لون الخلفيةوتعبئة لون الخطلتلوين التكرارات تلقائيًا بالألوان التي تختارها.

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

3. انقرموافق. سيعرض مربع حوار عدد الخلايا أو الصفوف المكررة التي تم العثور عليها وتحديدها. انقرموافقلإغلاقه.

الآن، تم تمييز التكرارات في قائمتك، مما يسهّل عليك اكتشافها وحذفها يدويًّا عند الحاجة دون التأثير على أيٍّ من الصفوف الفارغة.

المزايا:أكثر مرونة، وخالية من المخاطر، وتدعم المراجعة قبل الحذف. وتبقى الصفوف الفارغة دون تغيير افتراضيًا. كما يُعدّ هذا النهج مثاليًا عندما تريد تحكمًا بصريًّا أكبر أو تحتاج إلى معالجة التكرارات حالةً بحالة.

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

عرض توضيحي: تحديد الخلايا المكررة/الفريدة باستخدام Kutools لـ Excel

ماكرو VBA: إزالة التكرارات مع الاحتفاظ بـ صفوف فارغة تلقائياً

للمستخدمين الذين يحتاجون غالبًا إلى أتمتة إزالة التكرارات مع الاحتفاظ بجميع الصفوف الفارغة، يُعد ماكرو VBA حلاً عمليًا وفعالًا. باستخدامه، يمكنك تنظيف بياناتك بنقرة واحدة—بغض النظر عن عدد مرات تحديث قائمتك أو مدى تكرار ذلك—وبدون الحاجة إلى أعمدة مساعدة. هذه الطريقة مثالية إذا كان هيكل ورقة العمل لديك ثابتًا وتبحث عن حلٍّ قابل للتكرار يضمن لك الأداء العالي والدقة المطلقة.

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

1. انتقل إلىأدوات المطور > Visual Basic. في محرر VBA، انقرإدراج > وحدة نمطية. ثم الصق الكود أدناه في نافذة الوحدة النمطية الجديدة:

Sub RemoveDuplicatesKeepBlankRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim cell As Range
    Dim checkRange As Range
    Dim i As Long
    
    Set ws = ActiveSheet
    Set dict = CreateObject("Scripting.Dictionary")
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set checkRange = ws.Range("A1:A" & lastRow)
    
    Application.ScreenUpdating = False
    
    For i = lastRow To 1 Step -1
        Set cell = ws.Cells(i, 1)
        
        If Trim(cell.Value) = "" Then
            ' Blank row, do nothing and keep row
        Else
            If dict.Exists(cell.Value) Then
                cell.EntireRow.Delete
            Else
                dict.Add cell.Value, True
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
End Sub

2. لتشغيل الكود، انقر على زر التشغيل، أو اضغطF5 أثناء تحديد الوحدة النمطية. وسيقوم الماكرو فورًا بمسح العمود الأول (A) وإزالة القيم المكررة، مع الحفاظ على جميع الصفوف الفارغة في مواضعها الأصلية.

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

المعاملات والتلميحات:

• إذا كانت بياناتك في عمود آخر، غيّرCells(i,1) إلى رقم العمود المطلوب (مثلًا، 2 للعمود B و3 للعمود C).
• يبدأ الماكرو من الصف الأخير صعودًا، مما يحول دون تأثير انزياح الصفوف على عملية الحذف.
• سيتم اعتبار أي خلية تحتوي على مسافات فقط على أنها فارغة أيضًا. إذا كنت ترغب في تحديد الخلايا الفارغة فعليًّا فقط، استبدلTrim(cell.Value) = "" بـcell.Value = "".

استكشاف الأخطاء وإصلاحها:إذا لم يتصرّف الماكرو كما هو متوقع، فتحقّق من وجود خلايا مدمجة أو صفوف مخفية أو أنواع بيانات غير متوقعة في العمود المستهدف.

الأفضل لـ:العمليات المتكررة، أو التعامل مع مجموعات بيانات ضخمة، أو عند استخدام الماكرو كجزء من سير عمل آلي.

صيغة Excel/مرشّح متقدم: استخراج القيم الفريدة مع الاحتفاظ بـ صفوف فارغة

إذا أردت استخراج قائمة فريدة من البيانات الأصلية والاحتفاظ بـ صفوف فارغة مُحاذية في مواضع ظهورها، يمكنك استخدام تصفية متقدمة مع صيغة معيار، أو استخدام صيغ إكسل بذكاء لإنشاء قائمة جديدة. ويكون هذا مفيدًا بشكل خاص إذا أردت إنشاء قائمة منفصلة خالية من التكرارات لأغراض التقارير أو التحليل الإضافي، مع الحفاظ في الوقت نفسه على التنسيق الأصلي بما في ذلك الأسطر الفارغة.

يمكنك استخدام الصيغة التالية لإنشاء قائمة بالقيم الفريدة مع الحفاظ على الصفوف الفارغة في مواضعها. إليك نهجًا مبسَّطًا:

1.في عمود جديد (على سبيل المثال، B1)، استخدم هذه الصيغة (بافتراض أن بياناتك الأصلية موجودة في A1:A100):

=IF(TRIM(A1)="","",IF(COUNTIF(A$1:A1,A1)=1,A1,""))

2.اسحب هذه الصيغة لأسفل بجانب جميع صفوف بياناتك. ستظهر العناصر الفريدة في مواضعها الأصلية، بينما تُعرض التكرارات اللاحقة كخلايا فارغة، وتظل الصفوف التي كانت فارغة أصلاً فارغة.

احتياطات:تأكد من عدم وجود قيم مخفية أو مسافات بادئة/زائدة في نهاية النصوص، إذ قد تؤثر على تمييز القيم الفريدة. ويساعدك الدالةTRIM في تجنّب هذه المشكلة. أما إذا كنت تستخدم إصدارات قديمة من إكسل، فقد تحتاج إلى تعديل الطريقة أو استخدام أعمدة مساعدة مع التصفية اليدوية.

مناسب لـ:إنشاء تقارير جديدة أو قوائم جنبًا إلى جنب، أو إعداد بيانات مُنظَّمة جاهزة للمعالجة الإضافية. كما يُعدّ هذا النهج خيارًا مثاليًّا أيضًا لأولئك الذين يفضلون الاعتماد على الصيغ وحدها دون استخدام VBA أو الإضافات.

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

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

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...