اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كتابة الرقم المتكرر فى العمود المجاور


oyousef

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

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

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

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

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

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

وشكرا

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

رابط هذا التعليق
شارك

  • 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