اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information