كيفية إزالة صف مكرر في Excel: 3 طرق سهلة

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

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

• لماذا تقوم بإزالة صف مكرر في Excel
• الطريقة 1: إزالة صف مكرر باستخدام Excel إزالة التكرارات
• الطريقة 2: تحديد وتظليل وإزالة صف مكرر باستخدام Kutools 👍(آمن ومرئي)
• الطريقة 3: إزالة صف مكرر باستخدام VBA
• أي طريقة يُفضَّل استخدامها؟
• الأسئلة الشائعة

لماذا تقوم بإزالة صف مكرر في Excel

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

في المثال أعلاه، تظهر السجلات الخاصة بـمعرف الطلب 1001ومعرف الطلب 1002مرتين. ويُساعدك حذف الصفوف المكررة على الاحتفاظ بنسخة نظيفة واحدة فقط من كل سجل.

الطريقة 1: إزالة صف مكرر باستخدام Excel إزالة التكرارات

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

1. حدد نطاق البيانات الذي يتضمّن صفًّا مكررًا.
2. انتقل إلى علامة التبويببيانات، ثم انقر فوقإزالة التكراراتفي مجموعةأدوات البيانات.
   
3. في مربع الحوارإزالة التكرارات، قم بتعيين الخيارات كما يلي:
   1. ① حددتشمل العناوينإذا كان النطاق المحدد يتضمّن رؤوس الأعمدة.
   2. ② حدد الأعمدة التي سيتم استخدامها لوضع علامة على المكررات.
      • إذا اخترتَ جميع الأعمدة، يزيل Excel الصفوف المتطابقة تمامًا فقط.
      • إذا اخترتَ فقط عمودًا واحدًا أو بعض الأعمدة، سيُعتبر Excel الصفوف التي تحتوي على نفس القيم في تلك الأعمدة المحددة سجلات مكررة.
      في هذا المثال، نحددجميع الأعمدةلإزالة الصفوف فقط عندما يكون الصف بأكمله مكررًا.
   3. ③ انقر فوقموافق.
      
4. سيعرض Excel مربع رسالة يوضح عدد القيم المكررة التي تم إزالتها والقيم الفريدة المتبقية. انقر فوقموافقلإغلاقه.
   

النتيجة:يقوم Excel بإزالة الصفوف المكررة من النطاق المحدد، ويحتفظ بالحدوث الأول لكل سجل مكرر.

الطريقة 2: تحديد وتظليل وإزالة صف مكرر باستخدام Kutools

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

1. حدد النطاق الذي ترغب في البحث ضمنه عن الصف المكرر وحذفه.
2. انقر فوقKutools > تحديد > تحديد الخلايا المكررة/الفريدة.
   
3. في مربع الحوارتحديد الخلايا المكررة/الفريدة، قم بما يلي:
   1. ① اختركل صففي قسمبناءً على.
   2. ② ضمنالقاعدة، حددالقيم المكررة (باستثناء التطابق الأول).
      • القيم المكررة (باستثناء التطابق الأول):يحدد فقط النُسخ الزائدة من الصف المكرر ويحتفظ بنُسخة واحدة.
      • القيم المكررة (بما في ذلك التطابق الأول):تُحدِّد جميع الصفوف في كل مجموعة مكررة. وإذا قمت بحذفها، فسيتم إزالة جميع السجلات المكررة في تلك المجموعة.
   3. ③ اختياري: حددتعبئة لون الخلفيةأوتعبئة لون الخطإذا كنت ترغب في تمييز الصفوف المكررة قبل حذفها.
   4. ④ انقر فوقموافق.
      
4. يظهر مربع رسالة يُخبرك بعدد الصفوف المحددة. انقر فوقموافق.
   
5. انقر بزر الماوس الأيمن على أحد الصفوف المحددة واخترحذف.

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

الطريقة 3: إزالة صف مكرر باستخدام VBA

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

1. اضغطAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة نمطية.
3. انسخ كود VBA والصقه في نافذة الوحدة النمطية.

    Sub RemoveDuplicateRows_KeepFirst()
   'Updated by Extendoffice 2026/5/22
       Dim rng As Range
       Dim hasHeaders As VbMsgBoxResult
       Dim firstDataRow As Long
       Dim r As Long, c As Long
       Dim key As String
       Dim seen As Collection
       Dim rowsToDelete As Range
       Dim cellValue As Variant
       
       On Error Resume Next
       Set rng = Application.InputBox("Select the range to remove duplicate rows:", "Remove Duplicate Rows", Type:=8)
       On Error GoTo 0
       
       If rng Is Nothing Then Exit Sub
       
       hasHeaders = MsgBox("Does the selected range include headers?", vbYesNoCancel + vbQuestion, "Header Option")
       If hasHeaders = vbCancel Then Exit Sub
       
       If hasHeaders = vbYes Then
           firstDataRow = 2
       Else
           firstDataRow = 1
       End If
       
       Set seen = New Collection
       
       Application.ScreenUpdating = False
       
       For r = firstDataRow To rng.Rows.Count
           key = ""
           
           For c = 1 To rng.Columns.Count
               cellValue = rng.Cells(r, c).Value
               
               If IsError(cellValue) Then
                   key = key & "[ERROR]" & CStr(rng.Cells(r, c).Text) & Chr(30)
               Else
                   key = key & CStr(cellValue) & Chr(30)
               End If
           Next c
           
           On Error Resume Next
           seen.Add key, key
           
           If Err.Number <> 0 Then
               If rowsToDelete Is Nothing Then
                   Set rowsToDelete = rng.Rows(r).EntireRow
               Else
                   Set rowsToDelete = Union(rowsToDelete, rng.Rows(r).EntireRow)
               End If
               Err.Clear
           End If
           
           On Error GoTo 0
       Next r
       
       If Not rowsToDelete Is Nothing Then
           rowsToDelete.Delete
           MsgBox "Duplicate rows have been removed.", vbInformation
       Else
           MsgBox "No duplicate rows were found.", vbInformation
       End If
       
       Application.ScreenUpdating = True
   End Sub
   

4. اضغطF5 أو انقر فوق زرتشغيلفي محرر VBA لتشغيل الكود.
5. في المربع المنبثق، حدد النطاق الذي تريد إزالة الصفوف المكررة منه، ثم انقر فوقموافق.
   
6. عند سؤالك عما إذا كان نطاق التحديد يحتوي على رؤوس أعمدة، اخترنعمأولا.
   

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

أي طريقة يُفضَّل استخدامها؟

تعتمد أفضل طريقة على ما إذا كنت تبحث عن حلٍّ مضمنٍ سريع، أو أسلوبٍ مرئي أكثر أمانًا يتيح لك مراجعة المكررات أولًا، أو طريقةٍ تعتمد على الكود.

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

الأسئلة الشائعة

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

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

كيف يمكنني إزالة الصفوف المكررة بناءً على عمود واحد؟

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

كيف يمكنني العثور على الصفوف المكررة دون حذفها؟

استخدم ميزة Kutools لـ Excel’s تحديد الخلايا المكررة/الفريدة! فهي تتيح لك تحديد الصفوف المكررة بسهولة، ثم مراجعتها أو تمييزها أو نسخها أو حذفها لاحقًا.

ما الفرق بين القيم المكررة (باستثناء أول تطابق) والقيم المكررة (بما في ذلك أول تطابق)؟

القيم المكررة (باستثناء التطابق الأول)تُحدّد التكرارات التي تظهر بعد السجل الأول فقط. وهذا مفيد عندما تريد الاحتفاظ بنسخة واحدة وإزالة التكرارات الإضافية.

القيم المكررة (بما في ذلك التطابق الأول)تُحدِّد كل صف في كل مجموعة مكررة، بما في ذلك السجل الأول. وهذا مفيد عندما تريد تحديد جميع السجلات المنتمية إلى مجموعات مكررة.

هل يمكنني تمييز الصفوف المكررة قبل حذفها؟

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

هل يستطيع Excel إزالة صف مكرر الحساسة لحالة الأحرف؟

ميزة إزالة التكرارات المضمنة في Excel ليست مثالية لاكتشاف التكرارات الحساسة لحالة الأحرف. إذا كنت بحاجة إلى التمييز بين النص المكتوب بأحرف كبيرة والنص المكتوب بأحرف صغيرة، يمكنك استخدام خيارحساسية الحالةفي ميزة Kutools لـ Excel’s تحديد الخلايا المكررة/الفريدة.

الخاتمة

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

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