ممكن كود لتقسيم محتوى الخلايا المدمجة بحسب عدد خلاياها

[reda23dz]

ممكن كود لتقسيم محتوى الخلايا المدمجة

مثلا:

خلية مدمجة من ثلاث خلايا يوضع محتواها في الثلاث خلايا بعد الفصل (أنظر المثال)

مثال.xlsx

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

جرب هذا الكود

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

[reda23dz]

أحمد يوسف

بارك الله فيك على الغجابة

كنت مع التجريب، معذرة