دمج خلايا

[shetos77]

المطلوب كود يقوم بدمج كل خليتين في خلية واحدة في اعمدة معينة مثلا العمود A ندمج الخلية 1و2 معا و3و4 معا وهكذا حتي الصف رقم 100او اكثر 

[أحمد يوسف]

عليك برفع ملف بالمطلوب بالتفصيل

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

هذا الماكرو

Option Explicit

Sub Merg_for_Me()
Dim i%
Columns("A:B").UnMerge
For i = 1 To 100 Step 2
 Range("a" & i & ":a" & i + 1).Merge
 Range("b" & i & ":b" & i + 1).Merge
 Next
End Sub

 

[shetos77]

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