كيفية تجميع بيانات في اعمدة مختلفه

[sief122]

اخواتي واساتذتى عندي ملف به اسماء مكررة وبيانات في اعمدة مختلفه

المطلوب : كيف يمكن تجميع جميع بيانات كل اسم في صف واحد

ملف عمل.xlsm

[محي الدين ابو البشر]

ربما

Sub test()
Dim r&
With ActiveSheet
r = .Cells(Rows.Count, 4).End(xlUp).Row
 .Range("D4:I" & r).SpecialCells(4).Delete Shift:=xlUp
 .Range("$D$3:$D$" & r).RemoveDuplicates 1, 1
    End With
End Sub

 

[sief122]

شكرا وكتر خير حضرتك علي التواصل 

[محي الدين ابو البشر]

بارك الله