كود لدمج الخلايا المختارة فى اول خلية و حذف الصفوف الاصلية

[محمد طاهر عرفه]

احتجت أن أقوم باختيار مجموعة من الخلايا ايا كان عددها كأعمدة أو صفوف

ثم يتم دمج  القيم الموجودة بها فى الصف الاعلي ، و حذف باقي الصفوف

فقمت باعداد هذا الكود  لتنفيذ المطلوب

للتجربة قم باختيار اي مجموعة خلابا و شغل الكود

Sub Merge_Selection()
' Merge Selected Rows (first cell only)
Application.ScreenUpdating = False
Dim Myrows As Integer, MyCols As Integer
Myrows = Selection.Rows.Count
MyCols = Selection.Columns.Count

ActiveCell.Select
For j = 1 To MyCols
For i = 1 To Myrows - 1
    If ActiveCell.Offset(i, 0).Value <> "" Then
      ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(i, 0).Value
    End If
    'ActiveCell.Offset(1, 0).EntireRow.Delete
    'Myrows = Myrows - 1
Next i
ActiveCell.Offset(0, 1).Select
Next j

For i = 1 To Myrows - 1
ActiveCell.Offset(1, 0).EntireRow.Delete
Next i

End Sub

Mergecellsup.rar

[عبدالله باقشير]

السلام عليكم

 

جزاكم الله خيرا

 

تقبلوا تحياتي وشكري

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

جزاك الله كل خير

[حمادة عمر]

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل محمد طاهرالمحترم

جزاك الله خيرا وبارك فيك

تقبل فائق احترامي وتقديري

[أم عبد الله]

أستاذنا الكبير المهندس / محمد طاهر

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذا الكود الرائع.