البحث عن قيم مكررة في الاكسل

السلام عليكم ..

1. يمكن حل المشكلة عن طريق زر و تضع داخله كود الــ VBA التالي :

   Sub Button1_Click()
   Dim Lastrow As Integer
   Lastrow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
   
   For i = 1 To Lastrow
   Cells(i, 4).Value = ""
   Next
   For i = 1 To Lastrow - 1
   For j = i + 1 To Lastrow
   	If Cells(i, 1).Value = Cells(j, 1).Value And Cells(i, 2).Value = Cells(j, 2).Value And Cells(i, 3).Value = Cells(j, 3).Value Then
   	Cells(i, 4).Value = "Duplicate With " & j
   	Cells(j, 4).Value = "Duplicate With " & i
   	End If
   Next
   Next
   
   
   End Sub

   مثلا ..

2. هنا يشرحون ذلك عن طريق Filter ثم الأسطر الفريدة .. رابط

هناك طريق سهلة جدا حدد العمود المراد بحث البحث عن القيم المكررة

تدخل على التنسيق الشرطى ومن ضمن الشروط الشروط تحديد القيم المكررة

ستجد أى قيمة مكررة باللون اﻻحمر الفاتح وعندما تدخل قيمة جديدة وبمجرد ادخال اذا كانت موجودة مسبقا ستظهر باللون اﻻحمر الفاتح

يعطيكم الصحة

بارك الله فيكم