كيف الغي الاسطر الفارغة من بين الاسطر الغير فارغة

[ايمن ابوأنس]

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

يوجد لدي ملف يتكون من 124 صفحة تقريبا وبه معلومات موزعة كما يلي :

سطر يوجد به بيانات

سطر فارغ من البيانات

وهكذا حتى 124 صفحة

المطلوب كيف يمكن الغاء جميع الاسطر الفارغة من الملف ؟؟

حاولت ان الغيها يدويا ولكن كانت عملية صعبة !!

فهل يوجد حل وجزاكم الله كل خير .

تم تعديل سبتمبر 3, 2005 بواسطه ايمن ابوأنس

[ايمن ابوأنس]

اخواني الاعزاء

اذا في مجال للمساعدة لا تبخلوا علينا

انا حاولت ان ابحث في الموقع عن سؤال شبيه بس ما زبطت معاي

رجاء المساعدة لاني لازم الغي يدوي ما يزيز عن 3000 سطر وانا فعلا شغال فيها الان يدوي ولكن فعلا شغلة متعبة وبدها وقت وانا مطلوب مني مستعجل.

شكرا للجميع

[lombardia_77]

السلام عليكم

اخي العزيز , كم صف عندك في كل صفحة ؟؟؟

ان عدد الصفحات لايهم لأنك تستطيع ان تختار جميع الصفحات وتعمل عليها مرة واحدة سويةً

السؤال الثاني : هل الاوراق متشابهة ؟ يعني مثلاً لو كان السطر الاول من الصفحة الاولى مليئاً بالمعلومات والسطر الثاني هو السطر الفارغ فهل هذا الحال مع جميع الصفحات ال 124

اذا كانت الصفحات متشابهة فقف على لسان تبويب اي صفحة واضغط بزر الفأرة الايمن واختر select all sheet ثم قم بعملية الحذف يدوياً لمرة واحدة وستحذف من جميع الصفحات

اعلم ان هذه الطريقة يدوية ومتعبة لكنني لا اعرف غيرها فأعذرني

اتمنى ان يساعدك الاخوة الكرام بكود فمن المؤكد ان هذا افضل

تحياتي

[ايمن ابوأنس]

شكرا لك اخي الكريم على تجاوبك حسن الكلام

ولكن اخي الكريم هذه ليست بحل سريع واتوقع ان يكون الحل عن طريق كود معين لانني عندما استخدم هذه الطريقة فيجب ان اختار ما يقارب 3000 سطر فارغ ثم اقوم بحذفها . وانا فعلا بدأت احذف الاسطر يدويا حينما لم اجد جواب لسؤالي - قلت بدل ما انا قاعد استنى خليني ابدأ الحذف - .

وانني أأمل ان يساعدني احد الاخوان .

شكرا لك جزيلا .

[aboahmed]

بسم الله الرحمن الرحيم

جرب الرابط التالي

http://www.officena.net/ib/index.php?showtopic=7486&hl=

او الرابط

http://www.officena.net/ib/index.php?showtopic=8119&hl=

[ايمن ابوأنس]

جزاك الله كل خير اخي aboahmed

اتوقع ان الرابط الاول هو المطلوب

ولكن بعد تطبيقة على الملف عندي اظهر العبارات التالية :

Compile error

Invalid outside procedure

ولا يقوم طبعا بتنفيذ الامر علما ان الاوفيس عندي هي 2003 اخر طبعة

شكرا لك كثيرا ولا زلت اعمل يدوي حتى الفرج باذن الله .

تم تعديل سبتمبر 4, 2005 بواسطه ايمن ابوأنس

[علي السحيب]

السلام عليكم،

جرب أخي الكود التالي والمطبق في الملف المرفق:

Sub DeleteEmptyRows()
    LastRow = ActiveSheet.UsedRange.Row - 1 + _
        ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
End Sub

أتمنى أن يكون هذا ما تريد،

__________________.rar

تم تعديل سبتمبر 4, 2005 بواسطه LoveCandle

[ايمن ابوأنس]

تسلم اخي الكريم LoveCandle

فعلا هذا هو المطلوب

شكرا جزيلا على التجاوب وكنت اعلم بل متيقن من المساعدة ولكن كان لابد من شوية صبر

والحمد لله كان الصبر عندي موجود .

الف شكر لكل من شارك وحاول المساعدة .

(y)

[lombardia_77]

السلام عليكم

نعم انا لا اعرف كتابة الاكواد لكنني توصلت الى حل

صحيح ان الوقت متأخر ولكن لفائدة باقي الاخوة

1_ اختر جميع الصفحات التي تريد

2_ قف على اي خلية داخل المجال المستخدم ( يعني المكان الذي فيه البيانات )

3_ من قائمة تحرير edit اختر الذهاب الى go to

4_ اضغط على الامر خاص special

5_ اختر الخلايا الفارغة blank

6_ ستحدد ( تظلل ) جميع الخلايا الفارغة

7_ انقر بزر الفأرة الايمن واختر delete

8_ اختر ازاحة الخلايا الى الاعلى shift cells up

9_ اخبرني بربك هل نجحت ام لا ؟؟؟

بالمناسبة هذا الحل سينجح فقط في حالة كانت الاوراق جميعها بنفس البنية بمعنى ان السطور المتروكة متروكة في جميع الاوراق

تحياتي

[ايمن ابوأنس]

تسلم اخي lombardia_77 (y)

فعلا هذه الطريقة ايضا ناجحة 100% وان كان هنالك شئ بسيط جدا لا يذكر وهو

يجب اعادة الترتيب والتنسيق الى سابق عهده لانه يتأثر بالحذف .

ولكن طريقة صحيحة وجديدة علي شخصيا

تسلم كثير كثير وشكرا لمشاركتك

وكمان مرة شكرا للجميع بدون استثناء

أبوأنس :pp:

[lombardia_77]

بارك الله فيك