reda23dz قام بنشر نوفمبر 12, 2020 مشاركة قام بنشر نوفمبر 12, 2020 ممكن كود لتقسيم محتوى الخلايا المدمجة مثلا: خلية مدمجة من ثلاث خلايا يوضع محتواها في الثلاث خلايا بعد الفصل (أنظر المثال) مثال.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 12, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 12, 2020 جرب هذا الكود Option Explicit Sub Separet_values() Dim Cel As Range Dim m%, st1, st2, My_val Range("E1").CurrentRegion.ClearContents For Each Cel In Range("A1").CurrentRegion.Cells m = Cel.Row If Cel.MergeCells Then st1 = Cel.MergeArea.Columns(1) st2 = Cel.MergeArea.Columns(2) My_val = IIf(IsEmpty(st1), st2, st1) Cells(m, "E") = My_val End If Next Cel End Sub الملف مرفق reda23.xlsm 3 رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر نوفمبر 12, 2020 الكاتب مشاركة قام بنشر نوفمبر 12, 2020 أحمد يوسف بارك الله فيك على الغجابة كنت مع التجريب، معذرة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان