ترتيب البيانات افقى

[ابن الملك]

مرفق شيت اكسيل به بعض البيانات تحت بعض مكون من رقم الحساب ورصيد اول المده و الحركات المدينه والدائنه و رصيد المده و رصيد أخر المده ولكن حينما تم استخراج البيانات ظهرت كما بالمرفق 

هل هناك طريقه لدمج البيانات لتصبح كما بالمرفق 

 

وشكرا

جمع بيانات.rar

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

 جرب هذا الماكرو (يجب ان تكون جميع الصفوف تحت اخر صف من البيانات المطلوبة فارغة)

Sub del_cel1()
 ActiveSheet.Range("e2, f2:f3, g2:g4").Delete Shift:=xlUp
  laste_row = ActiveSheet.Cells(Rows.Count, "A").End(3).Row
  Range("D1:D" & laste_row).SpecialCells(4).EntireRow.Delete
  End Sub

 

تم تعديل أبريل 26, 2017 بواسطه سليم حاصبيا

[ابن الملك]

منذ ساعه, سليم حاصبيا said:

 جرب هذا الماكرو (يجب ان تكون جميع الصفوف تحت اخر صف من البيانات المطلوبة فارغة)

Sub del_cel1()
 ActiveSheet.Range("e2, f2:f3, g2:g4").Delete Shift:=xlUp
  laste_row = ActiveSheet.Cells(Rows.Count, "A").End(3).Row
  Range("D1:D" & laste_row).SpecialCells(4).EntireRow.Delete
  End Sub

 

اشكرك اخى سليم على الكود وجارى التجربه

حين العوده من العمل