حذف ردیف های خالی بعد از آخرین ستون دارای اطلاعات

**majid_mx4** · 2015/07/08, 01:20

با سلام

احتراما فایل ضمیمه را بررسی نمایید.

خلاصه : پیدا کردن آخرین سلول دارای اطلاعات و حذف سلول های خالی زیرین آنها (تا 1000 ردیف ) به دو روش

نحوه استفاده : بعد از ذخیره فایل ابتدا دکمه شماره 2 را فشار دهید.

این دکمه دقیقا طبق در خواست شماست . خواهید دید که قسمت زرد رنگ حذف می شود
حال دکمه شماره 1 را فشار دهید . اینبار بر اساس شماره ردیف عمل میکند یعنی چون ردیف شما پر است و شماره ردیف خورده است اخرین شمار ردیف را شناسایی و بعد از آن را جذف میکند .
متاسفانه موقع آپلود فایل خطا میگرفت مجبور شدم فایل را فشرده کنم .
با تشکر میر

فایل های پیوست شده

Group delete empty rows Mir.rar (17.2 کیلو بایت, مشاهدات 40)

**mobinsaffarpour** · 2015/07/08, 12:50

سلام و تشکر خدمت شما

میشه این کد رو تحلیل کنید بی زحمت . متشکرم

**majid_mx4** · 2015/07/08, 16:09

نوشته اصلی توسط mobinsaffarpour

سلام و تشکر خدمت شما

میشه این کد رو تحلیل کنید بی زحمت . متشکرم

با سلام مجدد

دوست عزیز این دو کد تقریبا شبیه هم هستند تنهاتفاوت آنها در پیدان کردن آخرین خانه می باشد.

کد دکمه شماره 1
LastRow میگردد و اخرین خانه پر ستون K را پیدا و انتخاب میکند وبا این انتخاب آن خانه اکتیو شده و در حالت اکتیو آدرس آن گرفته میشود یعنی ActiveCell.Address

خوب حال آدرس خانه شروع برای پاک کردن را داریم خانه آخر را هم که خانه 1000 رم تعریف کردیم و دستور حذف ردیف برای این ردیفها و تمام یعنی Range(ActiveCell.Address & ": k" & 1000).EntireRow.Delete

در دکمه شماره دوم هم همین اتقاق منتها با Find می افته یعنی Find میگرده و اینبار شماره اخرین ردیف خانه پر را به ما میده و چون دستور حذف ردیف را دادیم پس مهم نیست که کدام ردیف در کدام ستون را انتخاب کردیم (که ما اینجا ردیفهای ستون A را انتخاب کردیم )یعنی
Range("A" & LastRow & ": A" & 1000).EntireRow.Delete

در واقع اگر شماره اخرین ردیف که توسط find پیدا شده ردیف 50 باشد میشود A50:A1000 برای حذف
امیدوارم مفید واقع بشه

با تشکر میر

**mobinsaffarpour** · 2015/07/08, 16:25

اینطور که شما می فرمائید یعنی در دکمه شماره 2 اینطور تعریف شده که مهم نیست کدامیک از سلولهای ردیف پر شده باشند و میره به سراغ ردیف بعدی که تمامی سلولهاش فاقد اطلاعات هستند و میره اون رو حذف میکنه درسته ؟؟؟؟