اذهب الي المحتوي
أوفيسنا

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


salm1

الردود الموصى بها

السلام عليكم 

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

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

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

 

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

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

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

رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information