سؤال عن فك دمج الخلايا

[Asb_2018]

‏عندي برنامج في العمل أخذ منه تقرير يومي ثم احوله إلى اكسل المشكلة عند التحويل يقوم البرنامج بدمج الخلايا المتشابه بعدها انا اظلل الملف الإكسل بالكامل و الغي الدمج فيكون عندي خلايا فارغة أقوم بتعبئتها يدوي و هذا يأخذ منى وقت طويل 
سؤالى هل يمكن الإكسل خدمتى بأن يلغى الدمج و يضع مكانة نفس النص مكرر 
بمعني لو  6 خلايا مدموجة بكلمة محمد اذا لغينا الدمج كان اسم محمد في أول خلية و خمس خلايا فارغة 
احتاج طريقة يلغى الدمج و يضيف النص في الخلايا الفارغة

[Asb_2018]

السلام عليكم 

هل من مجيب لهذا السؤال 

[Asb_2018]

معقول سؤال صعب ؟

[احمد بدره]

ممكن عمل ماكرو  قم بإنشاء ماكرو ثم إلغاء الدمج ثم الذهاب للخلية التي بها الاسم الذي تريد نسخه قم بنسخها ثم حدد الخلايا الفارغة وقم باللصق وبعد ذلك قم بإيقاف تسجيل الماكرو  بهذا ممكن تشغيل الماكرو فيقوم  بتلك المهمة بدلاً منك

[Asb_2018]

ابشركم اخواني وجدت الحل 

كود برمجي قد يفيد الجميع

Sub test()

Dim cell As Variant

Application.ScreenUpdating = False

Application.EnableEvents = False

For Each cell In ActiveSheet.UsedRange

If cell.MergeCells = True Then

cell.Select

cell.UnMerge

Selection.Value = cell.Value

End If

Next

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub