كود نسخ وفك دمج خلايا جدول

[ameen77]

السلام عليكم ورحمة الله وبركاته

طلبي موضح بمثال في المرفقات

وجزيتم خيراً

مثال.xlsx

[سليم حاصبيا]

جرب هذا الماكرو

دوال الاكسل لا يمكنها تغيير النتسيقات( انها تنظر فقط الى محتوى الخلايا ولا يهمها الخطوط في الخلية ولا اذا كانت مدمجة أو لا)

Option Explicit
Sub test()
Application.ScreenUpdating = False
    Range("B8").CurrentRegion.Clear
    Range("B2").CurrentRegion.Copy Range("B8")
    Range("B8").CurrentRegion.UnMerge
    Range("C10").Cut Range("C9")
    Range("B10:d10").Clear
Application.ScreenUpdating = True

End Sub

الملف مرفق

Small_example.xlsm

[ameen77]

ألف شكر لك أخي سليم على المعلومة التي كنت أجهلها (دوال الاكسل لا يمكنها تغيير التنسيقات)

وبالنسبة للماكرو الذي وضعته لم يعمل معي لكني بإذن الله سأحاول إعداد ماكرو بنفسي فهل تدلني على موضوع فيه شرح وافي لطريقة إنشاء ماكرو

ملاحظة : الملف الذي أحاول نسخ وفك دمج خلايا وحذف صفوف فيه يوجد به أكثر من 5000 صف وأكثر من 20 عمود والقيام بذلك يدوياً أمر متعب للغاية

تم تعديل يوليو 20, 2019 بواسطه ameen77

[سليم حاصبيا]

شاهذ هذا الفيديو

https://www.youtube.com/watch?v=wH03Xnr3Pug