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

[tareek]

( كيف اقوم بعد القيم او النص المكرر فى عمود بحيث لا تعد القيمة المكررة إلا مرة واحدة )

[abouelhassan]

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

 

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 وتشغيله.

تم تعديل فبراير 12 بواسطه abouelhassan