احتجت أن أقوم باختيار مجموعة من الخلايا ايا كان عددها كأعمدة أو صفوف
ثم يتم دمج القيم الموجودة بها فى الصف الاعلي ، و حذف باقي الصفوف
فقمت باعداد هذا الكود لتنفيذ المطلوب
للتجربة قم باختيار اي مجموعة خلابا و شغل الكود
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