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

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

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

بعد طول غياب نحب المنتدى و اهله

كود اثبات وجود و  انتماء للمنتدى  ليس اكثر 

 For i = 1 To UsedRange.Rows.Count
    For x = i + 1 To UsedRange.Rows.Count
     If Cells(i, 1).Value = Cells(x, 1).Value Then Cells(x, 1).Delete
    Next x
   Next i

Return To Excel Offciena.rar

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

أخي وحبيبي في الله ..الغائب عن العين الحاضر في القلب ..أبو أسامة (أسد الإكسيل )  :smile:  :yes:

أخيراً عاد الأسد لعرينه ..فهنيئاً لنا ثم هنيئاً لنا ثم هنيئاً لنا بعودتك :dance1: :dance1:

ونرجو من الله أن يديم عليك الصحة والعافية ...

تلميذكم أبو البراء :fff: :fff:

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

  • 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.

×
×
  • اضف...

Important Information