Elsayeh قام بنشر مارس 4, 2022 مشاركة قام بنشر مارس 4, 2022 السلام عليكم ورحمة الله الرجاء المساعدة عندي شيت به مجموعة من الاسماء المكررة واريد نقل الاسم مرة واحدة دون تكرار مع جمع درجات تقييمه وللتوضيح مثلا عندي طالب اختبر ثلاث اختبارات في اللفة العربية وبالتالي اسمه مكتوب ثلاث مرات وله ثلاث درجات في نفس المادة فكيف يمكن نقل اسم الطالب مرة واحدة وجمع درجاته في اللغة العربية الملف في المرفقات مع خالص تحياتي ترحيل بيانات الاسماء المكررة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مارس 4, 2022 أفضل إجابة مشاركة قام بنشر مارس 4, 2022 The name in cell C10 should have a space between the first name and last name so as to be identical as the name in cell C5 Sub Test() Dim a, txt As String, i As Long, ii As Long a = Range("C5:G" & Cells(Rows.Count, "C").End(xlUp).Row).Value With CreateObject("Scripting.Dictionary") For i = 1 To UBound(a, 1) txt = a(i, 1) If Not .Exists(txt) Then .Item(txt) = .Count + 1 For ii = 1 To UBound(a, 2) a(.Count, ii) = a(i, ii) Next ii Else For ii = 2 To UBound(a, 2) a(.Item(txt), ii) = a(.Item(txt), ii) + a(i, ii) Next ii End If Next i i = .Count End With [J6].Resize(i, UBound(a, 2)) = a End Sub 2 1 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مارس 4, 2022 الكاتب مشاركة قام بنشر مارس 4, 2022 أخي الكريم الكود يعمل بكفاءة لكني أحتاج تعديل حيث أن بعض الخانات بها بيانات نصية وهو يجمعها فتكون مكررة التوضيح بالمرفق ترحيل بيانات الاسماء المكررة.xlsm رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 I work on just only one file. Try to study the code and modify it by yourself رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مارس 5, 2022 الكاتب مشاركة قام بنشر مارس 5, 2022 السلام عليكم اخي الفاضل حاولت تعديل الكود لكني فشلت الرجاء تعديله وفي ميزان حسناتك ان شاء الله ترحيل بيانات الاسماء المكررة.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 @Elsayeh اعتقد ان @lionheart قام باجابتك فهل يعقل بعد الاجابة تقوم بازالة علامة الاجابة وتطلب تعديل جديد .😱 كان من الاجدر ان تضع جميع متطلباتك من البداية والا فتح موضوع جديد. يجب ان تعلم اضافة متطلبات جديدة ستفقد حماس الاخرين لمساعدتك كما ان تصميم الكود ليس هين 😡 واعتقد ان @lionheart اعطاك كود قوي وسريع 😎 1 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مارس 5, 2022 الكاتب مشاركة قام بنشر مارس 5, 2022 عذرا أخي الكريم 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 @lionheart after you نظرة سريعة على الكود جرب تغيير هذا السطر من For ii = 2 To UBound(a, 2) الى For ii = 2 To UBound(a, 2)-2 اذا لم ينجح اصدر موضوع جديد ملاحظة : كما قال لك @lionheart قم بتعديل المسافات للاسماء المتكررة حتى يعمل الكود حتى لا تاتي بعد فترة وتقول الكود لم يعد يعمل تحياتي 3 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مارس 5, 2022 الكاتب مشاركة قام بنشر مارس 5, 2022 أخي @عبدالفتاح في بي اكسيل لك جزيل الشكر على هذا الحل السريع والناجز 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 السلام عليكم ورحمة الله وبركاته بعد إذن أساتذتي الكرام ، بعد الاطلاع على ملف الأخ @Elsayeh فإنني أقترح عليه نقل ملحقات الاسم (المرحلة - الشعبة) إلى جواره كي لا تتكرر أو تجمع بعدد مرات تكرار الاسم ، كما أنني لاحظت أنه زاد مواد أخرى فهو قد يكون بحاجة لتعديل الملف على الشكل التالي: وتعديل كود أستاذنا الكريم @lionheart ليتوافق مع طلبه، عذراً على التدخل ولكن أحببت أن أذكر وجهة نظري... والسلام عليكم ترحيل بيانات الاسماء المكررة.xlsm 3 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر مارس 5, 2022 الكاتب مشاركة قام بنشر مارس 5, 2022 بارك الله فيك أخي @محمد حسن المحمد ولك جزيل الشكر على هذا التعديل الممتاز 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر مارس 5, 2022 مشاركة قام بنشر مارس 5, 2022 منذ ساعه, Elsayeh said: بارك الله فيك أخي @محمد حسن المحمد ولك جزيل الشكر على هذا التعديل الممتاز ولكم بمثل ما دعوتم أخي الحبيب جزاكم الله خيرا وأحسن إليكم آمين رابط هذا التعليق شارك 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.