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

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

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

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information