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

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

قام بنشر

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

الاساتذة الكرام

ارجو المساعدة فى الاتى

الملف المرفق به العمود الاول يحمل ارقام قد تتكرر وغير معروف عدد مرات تكررارها

والمطلوب كود ينسخ الرقم مره واحده فى العمود الثانى سواء تكرر او لم يتكرر ولكن امام الخلية الفارغة فى العمود الاول مع العلم بان عدد مرات التكرار غير معروفه وايضا الخية الفارغة فى العمود الاول غير محدده ومتغيره

وشكرا

test.rar

قام بنشر

السلام عليكم

ومن باب التنوع في الحلول

هذا حل باستخدام الكود بنفس فكرة البشمهند طارق


Sub Abu_Ahmed_Triq()

Dim cl As Range, LstRw As Integer

LstRw = Cells(Rows.Count, 1).End(xlUp).Row

Range("A" & LstRw + 2).Value = 1

For Each cl In Range("A2:A" & LstRw + 2)

If Len(cl.Offset(-1, 0)) = 0 And Len(cl.Value) > 0 Then

cl.Offset(-1, 1).Value = cl.Offset(-2, 0).Value

End If

Next

Range("A" & LstRw + 2).Value = ""

End Sub

قام بنشر

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

اخي جرب المعادلة التالية


=INDEX($A$2:$A$18,MATCH(0,COUNTIF($B$1:B1,$A$2:$A$18),0))

و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter

قام بنشر

اخواني طيب جميع هذه الحلول في حالة كانت البيانات تم ترتيبها مسبقاً فكيف لو لم تكن البيانات تم ترتيبها يعني لو القيمه المكرره مدخله بخلايا غير مرتبه تحت بعض فهل يوجد طريقه لها.

ولكم جزيل الشكر والتقدير....

قام بنشر

أخي / jazea

لقد تم وضع السؤال بهذه الصيغة

والمطلوب كود ينسخ الرقم مره واحده فى العمود الثانى سواء تكرر او لم يتكرر ولكن امام الخلية الفارغة فى العمود الاول

لذلك فلاداعي لفرض وضع لم يتم السؤال عنه

اما إن كنت أنت تحتاج ذلك

فيمكن إستخدام الدالة COUNTIF مع الشرط أن يكون التكرار 1 فقط

بمعني ان يعيد كتابة الرقم عندما يكون تكراره في المجال من أعلي إلي هذه الخلية =1 ويتجاهل أي تكرار آخر

أنظر المرفق

test3.rar

قام بنشر

الاساتذة الافاضل

كل الشكر والتحية لكم جميعا انجزتم وابدعتم

وكل الشكر والتحية والتقدير

ومن باب التنوع ايضا فقد توصلت لهذه المعادلة


=IF(A5="";A4;"")

  • 2 months later...

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