فارس الشرقية قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 ارجوا مساعدتي في تحليل جدول الاكسل من حيث توضيح تكرار States و arSchoolName بحيث يوضح الجدول عدد تكرار كل ولاية وعدد تكرار كل اسم مدرسة مع خالص الشكر والتقدير school.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 أخي الكريم المرفق غير واضح بعض الشيء يرجى إرفاق بعض النتائج المتوقعة (يكتفى بمثال أو مثالين لفهم المطلوب بشكل أدق وأوضح) تقبل تحياتي رابط هذا التعليق شارك More sharing options...
فارس الشرقية قام بنشر فبراير 13, 2016 الكاتب مشاركة قام بنشر فبراير 13, 2016 اشكر لك سرعة تجاوبك مرفق لكم مع خالص الشكر مثال للنتيجة المتوقعة بمعنى تكرار محتويات الاعمدة مثال للنتيجة المتوقعة.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 أخي الكريم فارس إليك الكود التالي عله يكون المطلوب Sub ExtractUnique_Count() Dim R1 As Range, R2 As Range, Cel As Range, LR As Long Dim D1, D2, A1, A2 LR = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row Set R1 = Sheet1.Range("B2:B" & LR) Set R2 = Sheet1.Range("D2:D" & LR) Set D1 = CreateObject("Scripting.Dictionary") Set D2 = CreateObject("Scripting.Dictionary") On Error Resume Next Sheet3.Range("A2:E1000").ClearContents For Each Cel In R1 If Cel <> 0 Then D1.Add CStr(Cel), CStr(Cel) Next Cel A1 = D1.Items For Each Cel In R2 If Cel <> 0 Then D2.Add CStr(Cel), CStr(Cel) Next Cel A2 = D2.Items Sheet3.Range("A2").Resize(D1.Count) = Application.Transpose(A1) With Sheet3.Range("B2").Resize(D1.Count) .Formula = "=COUNTIF(ورقة1!$B$2:$B$1000,A2)" .Value = .Value End With Sheet3.Range("D2").Resize(D2.Count) = Application.Transpose(A2) With Sheet3.Range("E2").Resize(D2.Count) .Formula = "=COUNTIF(ورقة1!$D$2:$D$1000,D2)" .Value = .Value End With End Sub وإليك الملف المرفق فيه تطبيق للكود تقبل تحياتي Extract Unique Items & Count Them YasserKhalil.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 لما لا تستعمل هذه المعادلة في الورقة 4 خلية C2 , و تسحب نزولاً =SUMPRODUCT(--(TRIM(ورقة1!$D$2:$D$341)=TRIM($A2))) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.