اذهب الي المحتوي
أوفيسنا

عد المكرر قيم اونصوص


الردود الموصى بها

هل تحتاج معادلة ام كود

 

1. افتح Excel وانقر على الخلية التي ترغب في وضع الصيغة فيها.
2. استخدم الصيغة التالية:

   حيث أن $A$2:A2 تحدد نطاق البيانات الذي تريد البحث فيه للقيم المكررة، و A2 هو الخلية التي تحتوي على القيمة التي تريد فحصها.

3. اضغط على Enter.

هذه الصيغة ستظهر القيمة فقط إذا كانت تظهر للمرة الأولى في النطاق المحدد، وإلا ستظهر خلية فارغة.


=IF(COUNTIF($A$2:A2,A2)=1,A2,"")

وهذا كود

 
 Sub RemoveDuplicatesWithCount()
    Dim LastRow As Long
    Dim i As Long
    Dim UniqueValue As String
    Dim Count As Long
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        UniqueValue = Cells(i, 1).Value
        Count = WorksheetFunction.CountIf(Range("A2:A" & LastRow), UniqueValue)
        If Count = 1 Then
            Cells(i, 2).Value = UniqueValue
        Else
            Cells(i, 2).Value = UniqueValue & " (" & Count & ")"
        End If
    Next i
End Sub

هذا الكود سيقوم بتطبيق الصيغة وسيظهر القيم المكررة مع عددها في الخلية المجاورة. قم بتنفيذ الخطوات نفسها لإضافة الكود إلى وحدة VBA في Excel وتشغيله.

تم تعديل بواسطه abouelhassan
  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information