تعديل معادلة عد بدون تكرار

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

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

أبو أنس

عد بدون تكرار.rar

[عبدالله المجرب]

لا اعتقد انه يمكن

فما رايك بكود في زر أمر

[عبدالله المجرب]

بإمكانك تجربة هذا الكود

Sub Abu_Ahned_Cont()

For Each Cl In [B3:B12]

w = UBound(Filter(Split(MyArr, ","), Cl)) + 1

If w = 0 Then MyArr = MyArr & Trim(Cl) & ","

Next

For Each c In Split(MyArr, ",")

R = R + 1

Next

[B14] = Application.CountA([B3:B12])

[B15] = R - 1

End Sub

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي الفاضل أبا أحمد حفظك الله

أشكرك على الاهتمام بما أنك أستخدمت كلمة أعتقد فما زال هنالك امل من الاساتذه الافاضل.

اعزك الله ورفع قدرك

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، جرب المعادلة في الملف المرفق...

أخوك بن علية

عد بدون تكرار.rar

[عبدالله المجرب]

احسنت استاذ بن عليه

جميل جداً الشرط بعدم خلو الخلية من البيانات

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي الفاضل بن علية حاجي حفظك الله وبشرك الله بالجنة في حياتك.

أبو أنس

[حامد يونس]

السلام عليكم

=SUM(IF(FREQUENCY(IF(LEN(B3:B12)>0,MATCH(B3:B12,B3:B12,0),""), IF(LEN(B3:B12)>0,MATCH(B3:B12,B3:B12,0),""))>0,1))

وهذه معادلة اخرى

=SUMPRODUCT((names<>"")/COUNTIF(names,names&""))

[أبو أنس حاجب]

وعليكم السلام ورحمة الله وبركاته

أخي الفاضل thair younus جزاك الله كل خير وشكراً على ألاثراء للموضوع.

أبو أنس