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

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

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

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