كود صغير جدا و لكن مفيد جدا_ازالة الاصفار و الفراغات من عمود مع اعادة الترتيب

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة   كيفية الغاء الاصفار والفراغات من عمود معين مع اعادة ترتيب الاعداد

 

 مشاركة من الفاضل أ / أبو تامر

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

 

و لا تنسونا من صالح الدعاء

تحياتى