ازاحة

[Alttear]

السلام عليكم

طلب بسيط باذاحة الخلايا التي حولها اطار لتصبح بجانب بعضها البعض

مع الشكر

Move by Rectangle.rar

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

جرب هذا الماكرو

Sub Iza7a()
Dim my_rg As Range
Dim i, r As Integer

 Set my_rg = ActiveSheet.Range("h3:k21").SpecialCells(2)

  For i = 1 To my_rg.Areas.Count
  r = my_rg.Areas(i).Cells(1).Row
         my_rg.Areas(i).Copy
         Range("b" & r).PasteSpecial xlPasteValues
    my_rg.Areas(i).Clear
   Next
End Sub

 

[Alttear]

شكر لكم استاذ سليم .. جزاكم الله خيرا