البحث في الموقع
Showing results for tags 'الغاء الاصفار و الفراغات'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كيفية الغاء الاصفار والفراغات من عمود معين مع اعادة ترتيب الاعداد مشاركة من الفاضل أ / أبو تامر Sub Test() Dim Rng As Range, Cel As Range Set Rng = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)) For Each Cel In Rng If Cel = 0 Then Cel = "" End If Next Rng.SORT [A1], xlAscending End Sub مرفق الملف و الشرح Omar_1.rar و مشاركة اخرى من الفاضل أ / أبوعبد الله_اكسلجى مرفق الملف و الشرح ________________________.rar و لا تنسونا من صالح الدعاء تحياتى