سؤال عن دمج الخلايا

[kh_yh]

تحية طيبة
في الملف المرفق مجموعة من اسماء الشكات داخل خلايا قمت بعمل دمج لها وفي العامود الثاني اسماء اعضاء مجلس الادارة 
احتاج الى كود يقوم بدمج الخلايا التي تحتوي على اسماء مجلس الادارة بما يتناسب مع خلية اسم الشركة 
وفي الملف موضح النتيجة المرجوة 
ولا يشترط ان يكون اعضاء مجلس الادارة ثلاث فقط فممكن اكثر او اقل

دمج الخلايا.xlsx

تم تعديل أكتوبر 10, 2018 بواسطه kh_yh

[kh_yh]

up.....

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

جرب هذا الملف

مع اني في الاساس ضد لعبة دمج الخلايا ولا احبذها

الكود

Option Explicit
Sub test()
If ActiveSheet.Name <> "Salim" Then Exit Sub
Dim My_Rg As Range
Dim r, x, i, m, k
Dim st$
Set My_Rg = Range("a1").CurrentRegion.Columns(1)
 
With Range("H:H")
.UnMerge
.ClearContents
End With
r = My_Rg.Rows.Count
For i = 1 To r
      x = My_Rg.Cells(i).MergeArea.Rows.Count
      If x > 1 Then
       m = 1
     For k = i To i + x - 1
       st = st & Cells(i + m - 1, 2) & " " & Chr(10)
     m = m + 1
     Next
        With Range("H" & i)
         .Resize(x).Merge
         .Value = Mid(st, 1, Len(st) - 1)
        End With
    m = 1
    st = vbNullString
       i = i + x - 1
          Else
       Range("H" & i) = My_Rg.Cells(i).Offset(, 1)
   End If
Next
End Sub

الملف مرفق

Salim دمج الخلايا.xlsm

[Ali Mohamed Ali]

احسنت استاذ سليم بارك الله فيك

[kh_yh]

صديقي شكرا كثير على الحلول 
ولكن بدي الدمج يصير على نفس العمود ولكن انا حطيت عمودين للتوضيح فقط يعني الحل يكون في العمود b

[kh_yh]

up

[kh_yh]

up.....