تكرار البيانات في الخلايا السفلى إذا كانت فارغة

[121403]

السلام عليكم 

عندي ملف مبسط يحتوي على بيانات لعميلين 

أريد تكرار بيانات  العميل في الخلايا السفلى كما هو موجود في العمود z

حيث يصعب عمل ذلك عن طريق السحب في ظل وجود بيانات كثيرة 

هل من كود يقوم بهذه العملية ؟

Book1.rar

 

[الخالدي]

السلام عليكم ورحمة الله وبركاته

حسب فهمي للمطلوب

جرب الكود التالي

Sub AL_KHALEDI()
For Each C In Intersect([R2:Z10000], ActiveSheet.UsedRange)
If C = "" Then
If C.MergeArea.Cells(1).Address = C.Address Then
If C.Column = C.MergeArea.Cells(1, 1).Offset(-1, 0).MergeArea.Cells(1, 1).Column Then
C.Value = C.MergeArea.Cells(1, 1).Offset(-1, 0).MergeArea.Cells(1, 1).Value
End If
End If
End If
Next
End Sub

في امان الله

تعبئة الخلايا الفارغة.rar

[121403]

السلام عليكم ورحمة الله وبركاته

أشكرك أخي الخالدي على هذا الابداع 

وتعجز كلماتي عن شكرك 

جعل الله ذلك في ميزان حسناتك

في حفظ الله