فهرست مطالب
اگر به دنبال ساده‌ترین راه‌ها برای حذف ردیف با استفاده از VBA هستید، در جای مناسبی هستید.
بیایید به مقاله اصلی بپردازیم.
دانلود Workbook
VBA Delete Row.xlsm
14 روش برای حذف ردیف با استفاده از VBA
در اینجا، من سه داده را دارم جداول برای نشان دادن راه های حذف ردیف ها با استفاده از VBA . جدول اول شامل برخی از محصولات یک شرکت و اندازه ، قیمت است.
دوم یکی دارای تعدادی کد محصول و اندازه محصول و قیمت
است و آخرین مورد شامل برخی از نام های پروژه و تاریخ شروع و هزینه مربوطه آنها.
برای ایجاد مقاله، من از نسخه Microsoft Excel 365 استفاده کرده‌اید، می‌توانید از هر نسخه دیگری مطابق با راحتی خود استفاده کنید.
روش-1: حذف یک ردیف با استفاده از VBA
فرض کنید، شما می خواهید ردیف حاوی محصول کفش 1، را حذف کنید و برای حذف این ردیف می توانید از این روش پیروی کنید.
Step-01 :
➤به Developer Tab>> Visual Basic Option
سپس، ویژوال بیسیک ویرایشگر باز خواهد شد.
➤به Insert Tab>> Module Option
بروید. 
پس از آن، یک ماژول ایجاد خواهد شد.
Step-02 :
➤فایل را بنویسید پایین کردن کد
1844
در اینجا، "Single" اتحاد چندین محدوده مربوط به سلول های دارای تاریخ 11/12/2021 ، و در نهایت، محدوده ها حذف خواهند شد.
➤ فشار دهید F5
نتیجه :
پس از آن، ردیف هایی را که تاریخ معینی دارند 11/12/2021 حذف می کنید .
محتوای مرتبط: Excel VBA برای حذف ردیف هایی با داده های خاص (9 مثال)
تمرین بخش
برای انجام تمرین توسط خودتان، بخش تمرین را مانند زیر در برگه ای به نام تمرین ارائه کرده ایم. لطفاً خودتان این کار را انجام دهید.
نتیجه گیری
در این مقاله، سعی کردم ساده ترین راه های استفاده موثر VBA را برای حذف ردیف ها امیدوارم برای شما مفید باشد. اگر پیشنهاد یا سوالی دارید، در قسمت نظرات به اشتراک بگذارید.
نام کاربرگ، و Rows(7)شماره ردیف را انتخاب می کند..EntireRow.Delete کل ردیف 7 را حذف می کند.
➤ فشار دهید F5
نتیجه :
به این ترتیب، ردیف حاوی <1 را حذف خواهید کرد> نام محصول Shoe 1 .
بیشتر بخوانید: نحوه حذف ردیف ها در Excel: 7 روش‌ها
روش-2: حذف چند ردیف با استفاده از VBA
اگر می‌خواهید چندین ردیف مانند ردیفهای حاوی نام محصول Shoe1<را حذف کنید. 9>، Shoe2، و Shoe3 ، سپس می توانید این کد VBA را دنبال کنید.
Step-01 :
➤ Step-01 از روش-1
6588
در اینجا، ردیف شماره های 13، 10 را دنبال کنید ، و 7 حذف می شود و در نوشتن سریال شماره های ردیف را باید از شماره ردیف آخر به شماره ردیف اول مانند این کد بنویسید.
در غیر این صورت پس از حذف ردیف اول مانند ردیف 7 باقیمانده ردیفهای زیر این ردیف یک ردیف به سمت بالا حرکت می‌کنند و بنابراین، ردیف 10، ردیف 9، و ردیف 13، ردیف 12 خواهد بود. ason، شما نمی توانید ردیف های صحیح را حذف کنید.
➤ F5
نتیجه را فشار دهید. :
سپس، ردیفهای حاوی نام‌های محصول Shoe 1 ، Shoe2، و Shoe3 را حذف خواهید کرد.
بیشتر بخوانید: نحوه حذف چند ردیف در اکسل (3 روش)
روش-3 : حذف یک ردیف با انتخاب
در اینجا، راه حذف یک ردیف را نشان خواهم داد.با توجه به سلول فعال آن ردیف.
Step-01 :
➤دنبال کنید Step-01 از روش-1
1781
ردیف دارای سلول فعال را حذف می کند.
➤کد را ذخیره کنید.
Step-02 :
➤هر سلولی از یک ردیف را که می خواهید حذف کنید انتخاب کنید (در اینجا من سلول B7 را انتخاب کرده ام)
➤به Developer Tab>> Macros Option
بعد از آن، Macro <2 بروید>جادوگر باز می شود.
➤ نام ماکرو dltrow3 را انتخاب کنید و Run
<3 را فشار دهید>
نتیجه :
بعد از آن، ردیف حاوی محصول نام Shoe 1 را حذف خواهید کرد.
روش-4: حذف همه ردیفهای انتخابی
برای حذف تمام ردیفهای یک انتخاب می‌توانید از این روش پیروی کنید.
Step-01 :
➤ Step-01 of Method-1
6638
It را دنبال کنید تمام ردیف های انتخابی را حذف می کند.
➤کد را ذخیره کنید.
Step-02 :
➤محدوده ردیف هایی را که می خواهید حذف کنید انتخاب کنید (در اینجا، من محدوده B7:D9 را انتخاب کرده ام)
➤به Developer Tab>> Macros Option
<0 بروید>
پس از آن، Macro Wizard باز می شود.
➤ نام ماکرو dltrow4 را انتخاب کنید. و Run را فشار دهید
نتیجه :
سپس، ردیف های حاوی را حذف خواهید کرد. نام محصول کفش 1 ، ژاکت1، و Jacket2 .
بیشتر بخوانید: نحوه حذف ردیف های انتخابی در اکسل (8 رویکرد)
روش-5: حذف یک ردیف در صورتی که هر سلول خالی باشد
در اینجا، من یک سلول خالی دارم که B9 است (مقدار این سلول را برای این کار حذف کردم روش)، و با استفاده از یک کد VBA ، ردیف دارای سلول B9 را حذف خواهم کرد.
Step-01 :
➤ Step-01 of Method-1
8601
با این کار همه سطرهای محدوده <1 را حذف می کند>"B5:D13" هر سلول خالی دارد.
➤ F5
نتیجه<2 را فشار دهید>:
سپس، می‌توانید ردیف حاوی سلول خالی را حذف کنید.
بیشتر بخوانید: نحوه حذف ردیف های خالی در اکسل (11 روش)
روش-6: حذف یک ردیف اگر کل ردیف خالی باشد
در اینجا، من یک سلول خالی دارم که <1 است>B9 (من مقادیر این روش را حذف کردم)، و یک ردیف خالی که ردیف 12 است (من مقادیر این روش را حذف کردم) و با استفاده از یک کد VBA و تابع COUNTA ردیفی را که خالی است حذف می کنم.
Step-01 :
➤ Step-01 را دنبال کنید از روش-1
9778
"B5:D13" محدوده داده است و حلقه FOR برای هر سلول در این محدوده.
CountA(cell.EntireRow) تعداد سلول های غیر خالی را برمی گرداند و وقتی 0 شد، ردیف حذف می شود.
➤فشار دهید F5
نتیجه :
پس از آن، می‌توانید ردیف خالی را حذف کنید، اما هیچ ردیفی را که همه موارد را نداشته باشد، حذف نخواهد کرد. سلول های این ردیف خالی است.
بیشتر بخوانید: نحوه استفاده از VBA برای حذف ردیف های خالی در اکسل
روش-7: حذف هر nمین ردیف
با پیروی از این روش می توانید هر n ردیف (در این مورد هر ردیف سوم) را حذف کنید.
Step-01 :
➤ Step-01 of Method-1
6613
“B5 :D13" محدوده داده است و rc تعداد ردیف کل این محدوده را که 9 است برمی گرداند.
در اینجا، FOR حلقه از آخرین ردیف شروع می شود که در این مورد rc یا 9 است و به ردیف اول پایان می یابد.
مرحله -3 به حذف هر 3مین ردیف در این محدوده کمک می کند.
➤ F5
<را فشار دهید. 1>نتیجه :
سپس، ردیف های حاوی محصول نام Shoe 1 ، Shoe2، و <8 را حذف خواهید کرد>Shoe3 .
بیشتر بخوانید: چگونه هر nth R را حذف کنیم ow در اکسل (آسانترین 6 روش)
خواندنهای مشابه:
- چگونه ردیفهای انتخابی را با Excel VBA حذف کنیم (یک مرحله راهنمای مرحله ای)
- حذف ردیف های استفاده نشده در اکسل (8 روش آسان)
- نحوه حذف ردیف های پنهان در اکسل (3 روش)
- حذف ردیف های بی نهایت در اکسل (5 روش آسان)
- چگونه ردیف هایی را در اکسل حذف کنیم که برای همیشه ادامه دارند (4 آسانروش ها)
روش-8: حذف ردیف بر اساس مقدار سلول
در این روش، ردیفی را که مقدار مشخصی دارد حذف می کنم پیراهن 2 .
Step-01 :
➤ Step-01 از روش- را دنبال کنید 1
6727
"B5:D13" محدوده داده است و حلقه FOR برای هر سلول در این محدوده کار خواهد کرد.
اگر هر سلولی از یک ردیف حاوی مقدار «پیراهن 2» باشد سپس آن ردیف حذف خواهد شد.
➤ F5<2 را فشار دهید>
نتیجه :
به این ترتیب، ردیف حاوی محصول نام پیراهن 2 را حذف خواهید کرد.
بیشتر بخوانید: ماکرو VBA برای حذف ردیف اگر سلول حاوی مقدار در اکسل باشد (2 روش)
روش-9: حذف ردیفهای تکراری
در اینجا، من دو ردیف با کد محصول 97375 دارم و بنابراین می‌خواهم یکی از این ردیف‌ها را که با علامت‌گذاری شده‌اند حذف کنم. یک کادر قرمز در زیر.
Step-01 :
➤دنبال کنید Step-01 از روش-1
9965
در اینجا، "B5:D13" محدوده داده و ستونها:=1 من است و مقادیر تکراری را فقط در یک ستون جستجو می‌کند که ستون شروع ستون B است، اما اگر می‌خواهید در ستون‌های دیگر نیز جستجو کنید، می‌توانید بر اساس نیاز خود از این عدد استفاده کنید.
➤ F5
نتیجه :
بعد از آن، می‌توانید ردیفی را که مشابه یک ردیف دیگر.
بیشتر بخوانید: چگونه ردیف های تکراری را دراکسل با VBA (8 روش موثر)
روش-10: حذف ردیف‌ها در جدول
فرض کنید، جدول زیر را دارید که نام آن Table1 و اکنون می خواهید ردیف شماره 6 این جدول را حذف کنید. برای انجام این کار می توانید این روش را دنبال کنید.
Step-01 :
➤دنبال کنید Step-01 از روش-1
9916
در اینجا، «جدول» نام برگه، «جدول1» نام جدول و <1 است>6 شماره ردیف این جدول است که می خواهید حذف کنید.
➤ F5
<1 را فشار دهید>نتیجه :
به این ترتیب ردیف مورد نظر خود را از این جدول حذف خواهید کرد.
بیشتر بخوانید: نحوه حذف سطرهای تکراری بر اساس یک ستون با استفاده از Excel VBA
روش-11: حذف سطرهای قابل مشاهده پس از فیلتر کردن
در اینجا، من یک جدول داده دارم که فیلتر شده است ستون قیمت برای مقادیر بیش از 1500.00 دلار و من می خواهم تمام ردیف های قابل مشاهده را پس از فیلتر کردن حذف کنم.
Step-01 :
➤ Step-01 از Method-1
1169
در اینجا، «B5: D13" محدوده داده است.
➤ F5
را فشار دهید، اکنون تمام ردیف های قابل مشاهده پس از فیلتر کردن حذف شود. اکنون می توانید با انتخاب علامت Filter در ستون Price ، ردیف های پنهان را بازگردانید.
➤روی <کلیک کنید 1>گزینه همه را انتخاب کنید
➤ OK
نتیجه :
<را فشار دهید 0> در نهایت، ردیف های مخفی را دوباره وارد خواهید کردجدول داده ها. 
بیشتر بخوانید: نحوه فیلتر و حذف ردیف ها با VBA در اکسل (2 روش)
روش-12: حذف ردیف بر اساس آخرین سلول فعال
در اینجا، آخرین سلول فعال من سلول B13 است و می خواهم این سلول را با آخرین سلول فعال از موارد زیر حذف کنم. جدول داده ها.
Step-01 :
➤ Step-01 از روش را دنبال کنید -1
4827
در اینجا، 2 یعنی ستون B که من سلول فعال خود را در آن دارم، می توانید شماره را مطابق با نیاز خود تغییر دهید.
➤ فشار دهید F5
نتیجه :
به این ترتیب، شما خود را حذف خواهید کرد آخرین ردیف فعال.
بیشتر بخوانید: کد VBA اکسل برای حذف ردیف ها بر اساس مقدار سلولی چندگانه (3 معیار)
روش-13: حذف ردیف هایی که هر رشته ای دارند
فرض کنید، می خواهید ردیف هایی را که هر رشته ای دارند حذف کنید، و برای این کار می توانید از این روش پیروی کنید.
Step-01 :
➤ Step-01 of Method-1
5852<0 را دنبال کنید>در اینجا، "رشته"نام برگه است، شماره ردیف اول این محدوده داده 5و شماره ستون شروع 2
است. یا تعریف شده توسط کاربر یک بار برای یک سری از دستورات تایپ کنید.
On Error Resume Next بیان می کند که وقتی یک خطای زمان اجرا رخ می دهد، کنترل به دستور زیر دستور می رود. خطا رخ می دهد.
LastRow و LastColumn آخرین سطر و ستون محدوده داده را برمی گرداند.
SpecialCells(xlCellTypeConstants, xlTextValues) ردیف هایی را که دارای هر مقدار متنی هستند انتخاب می کند. محدوده.
➤ F5
نتیجه :
بعد، فشار دهید سطرهایی که هر رشته متنی دارند را حذف کنید.
بیشتر بخوانید: میانبر اکسل برای حذف ردیف ها (با تکنیک های پاداش)
روش-14: حذف ردیف بر اساس تاریخ
در اینجا، ردیف هایی را که تاریخ خاصی دارند 11/12/2021 (mm/dd/yyyy) در این حذف می کنم. روش با استفاده از تابع DATEVALUE .
Step-01 :
➤دنبال کنید Step- 01 از روش-1
4220
در اینجا، «تاریخ» نام برگه است، شماره ردیف اول این محدوده داده است. 5 و شماره ستون معیار (که دارای تاریخ است) 3 است.
عبارت With به شما امکان می دهد یک شی یا نوع تعریف شده توسط کاربر را یک بار مشخص کنید. برای یک سری کامل از عبارات.
On Error Resume Next بیان می کند که هنگامی که یک خطای زمان اجرا رخ می دهد، کنترل به دستور زیر دستوری می رود که در آن خطا رخ می دهد.
LastRow آخرین ردیف محدوده داده و در اینجا، FOR را برمی گرداند. حلقه از آخرین سطر که در این مورد LastRow یا 6 است شروع می شود و به سطر اول ختم می شود.
DATEVALUE تاریخ نوشتار را به مقدار تبدیل خواهد کرد.
در اینجا، Union برگردانده می شود
