مساعدة .. اريد تقسيم الخلايا المدمجة وتكرار قيمتها

[salm1]

السلام عليكم 

لدي ملف اكسل به بيانات كثيرة .. ويوجد به عمود يتضمن خلايا مدمجة 

المطلوب هو :  تقسيم هذه الخلايا المدمجة وارجاعها الى اصلها مع تكرار نفس القيمة في الخلايا الجديدة 

( مرفق ملف يوضح المطلوب ) 

 

آملين من الخبراء الكرام مساعدتنا في ذلك 

ولكم جزيل الشكر والتقدير 

اكسل - تقسيم الخلايا.rar

[ياسر العربى]

تفضل لعله المطلوب

اكسل - تقسيم الخلايا.rar

[salm1]

اشكرك جزيل الشكر ياخبيرنا 

لكن آمل توضيح الكود بشكل صريح حيث تنقصنا الخبرة في التعامل الاكسل 

وفقكم الله 

[salm1]

اكرر شكري وتقديري 

لقد فتحت المايكرو وحاولت فهم الكود 

اشكرك من اعماق قلبي .. وجعله الله في موازين حسانك 

[ياسر العربى]

تفضل اخي الكريم شرح مبسط

Sub Test_Yasser_elaraby()
'بداية اول خلية في الخلايا المدمجة
    Range("C4").Select
    'ايقاف تحديث الشاشة حتى لا ترى  معالجة الكود وبطئ التنفيذ
    Application.ScreenUpdating = False
    'حلقة تكرارية لحين تحقق شرط وهو ان يكون اخر خلية عند النزول اسفل بزر End
    'وتكون الخلية فارغة يخرج  الى الرقم 88 خارج الحلقة التكرارية
    Do
        'الغاء دمج اول خلية تم الوقوف عليها
        Selection.UnMerge
        'ومع نفس التحديد يتم عمل ملئ البيانات لنفس البيان بعد الغاء الدمج
        Selection.FillDown
        'ننتقل الى الخلية المدمجة الاخرى
        Selection.End(xlDown).Select
        'اذا كانت الخلية فارغة ينتقل الى 88
        If ActiveCell.Value = "" Then GoTo 88
        'يتم اعادة الحلقة التكرارية باستمرار طالما ان الخلية ليست فارغة ويظل ينتقل الى اسفل ويكررالكود
    Loop
    'بعد الانتهاء يتم تحديد الخلية A1
88  Range("A1").Select
    'اعادة تحديث الشاشة الى الوضع True
    Application.ScreenUpdating = True
    MsgBox "تم الغاء الدمج"
End Sub

 

[salm1]

كم انت راااااااااااائع 

اثابك الله ونفع بك .. وبارك الله لك في مالك وعيالك