Mundarija
Agar siz VBA yordamida qatorni oʻchirishning eng oson usullarini izlayotgan boʻlsangiz, unda siz toʻgʻri joydasiz.
Keling, asosiy maqolaga oʻtamiz.
Ishchi kitobni yuklab oling
VBA Delete Row.xlsm
VBA-dan foydalanib qatorni o'chirishning 14 usuli
Bu erda menda uchta ma'lumot bor VBA yordamida qatorlarni o'chirish usullarini ko'rsatadigan jadvallar. Birinchi jadvalda kompaniyaning ba'zi Mahsulotlari va ularning O'lchamlari , Narxlari mavjud.
Ikkinchi birida ba'zi Mahsulot kodlari va ularga tegishli Mahsulot o'lchamlari va Narxlar
Va oxirgisi mavjud ba'zi Loyiha nomlari va ularning tegishli Boshlanish sanalari va Xarajatlar .
Maqolani yaratish uchun men Microsoft Excel 365 versiyasidan foydalangan bo'lsangiz, siz o'zingizga qulay bo'lgan boshqa versiyalardan foydalanishingiz mumkin.
1-usul: VBA-dan foydalanib bitta qatorni o'chirish
Aytaylik, siz Mahsulot Poyafzal 1, ni oʻz ichiga olgan qatorni oʻchirmoqchi boʻlsangiz va bu bitta qatorni oʻchirish uchun ushbu usulga amal qilishingiz mumkin.
01-qadam :
➤ Dasturchi Tab>> Visual Basic Variant
Keyin, Visual Basic muharriri ochiladi.
➤ Insert Tab>> Modul Variant
ga o'ting. 
Shundan so'ng Modul yaratiladi.
02-bosqich :
➤Folni yozing tushirish kodi
7187
Bu yerda “Yagona” sanasi 11/12/2021 bo'lgan kataklarga mos keladigan bir nechta diapazonlar birlashishi va nihoyat, diapazonlar o'chiriladi.
➤
Natija :
Bundan so'ng siz 11/12/2021 sanasi bo'lgan qatorlarni o'chirib tashlaysiz. .
Aloqador tarkib: Ma'lum ma'lumotlarga ega qatorlarni o'chirish uchun Excel VBA (9 ta misol)
Amaliyot Bo'lim
O'zingiz mashq qilish uchun biz Mashq nomli varaqdagi kabi quyidagi kabi Amaliyot bo'limini taqdim etdik. Iltimos, buni o'zingiz bajaring.
Xulosa
Ushbu maqolada men VBA dan samarali foydalanishning eng oson usullarini yoritishga harakat qildim. qatorlarni o'chirish. Umid qilamanki, siz buni foydali deb topasiz. Agar sizda biron bir taklif yoki savol bo'lsa, ularni sharhlar bo'limida baham ko'ring.
ishchi varaq nomi va Qator(7)satr raqamini tanlaydi..EntireRow.Delete butun qator 7ni oʻchirib tashlaydi.
➤ F5
Natija tugmasini bosing:
Shunday qilib siz <1-ni o'z ichiga olgan qatorni o'chirasiz>Mahsulot nomi Poyafzal 1 .
Batafsil o'qing: Excelda qatorlarni qanday o'chirish mumkin: 7 Usullar
2-usul: VBA-dan foydalanib bir nechta satrlarni o'chirish
Agar siz Mahsulot nomlarini o'z ichiga olgan qatorlar kabi bir nechta qatorlarni o'chirmoqchi bo'lsangiz Poyafzal1 , Shoe2, va Shoe3 , keyin siz ushbu VBA kodga amal qilishingiz mumkin.
01-qadam :
➤ Usul-1
6658ning 01-bosqichiga amal qiling. Bu yerda 13, 10-qator raqamlari , va 7 o'chiriladi va ketma-ket qator raqamlarini yozishda siz oxirgi qator raqamidan birinchi qator raqamiga shu kod kabi yozishingiz kerak bo'ladi.
Aks holda, 7-qator kabi birinchi qatorni o'chirgandan so'ng qolganlari bu satr ostidagi qatorlar bir qator yuqoriga siljiydi va shuning uchun 10-qator 9-qator, 13-qator esa 12-qator boʻladi. Buning uchun ason, siz to'g'ri qatorlarni o'chira olmaysiz.
➤ F5
Natija tugmasini bosing. :
Keyin, Mahsulot nomlari Poyafzal 1 , Poyafzal2, va Poyafzal3 boʻlgan qatorlarni oʻchirib tashlaysiz.
Batafsil o'qing: Excelda bir nechta qatorlarni qanday o'chirish mumkin (3 usul)
-3-usul :
ni tanlash orqali qatorni oʻchirish bu yerda men qatorni oʻchirish yoʻlini koʻrsatamanushbu qatorning faol katagiga nisbatan.
01-bosqich :
➤ qadam-01 dan Usul-1
9284
U faol hujayraga ega bo'lgan qatorni o'chiradi.
➤Kodni saqlang.
02-bosqich :
➤Oʻchirmoqchi boʻlgan qatorning istalgan katakchasini tanlang (Bu yerda men B7 katakchasini tanladim)
➤ Dasturchi Tab>> Makrolar Variant
Bundan so'ng Makro Sehrgar ochiladi.
➤ Makro nomini dltrow3 tanlang va Ishga tushirish
<3 tugmasini bosing>
Natija :
Keyin Mahsulot nomi Poyafzal 1 boʻlgan qatorni oʻchirib tashlaysiz.
4-usul: Tanlovdagi barcha qatorlarni o'chirish
Tanlovning barcha qatorlarini o'chirish uchun siz ushbu usulga amal qilishingiz mumkin.
01-bosqich :
➤ Usul-1
6643
ning 01-bosqich bo'limini bajaring tanlovning barcha qatorlarini oʻchirib tashlaydi.
➤Kodni saqlang.
02-bosqich :
➤Oʻchirmoqchi boʻlgan qatorlar oraligʻini tanlang (Bu yerda men B7:D9 diapazonini tanladim)
➤ Dasturchi Tab>> Makros Variant
<0 ga o'ting>
Shundan so'ng Makro Sehrgar ochiladi.
➤ Makro nomini dltrow4 tanlang. va Ishga tushirish
Natija tugmasini bosing:
Keyin, siz ni o'z ichiga olgan qatorlarni o'chirasiz. Mahsulot nomlari Poyafzal 1 , Jacket1, va Jacket2 .
Batafsil o'qing: Excelda tanlangan qatorlarni qanday o'chirish mumkin(8 ta yondashuv)
5-usul: Agar biron bir katak bo'sh bo'lsa, qatorni o'chirish
Bu erda menda B9 bo'sh katak bor (buning uchun bu katakdan qiymatni olib tashladim. usuli) va VBA kodi yordamida men B9 yacheykaga ega boʻlgan qatorni oʻchirib tashlayman.
01-qadam :
➤ Usul-1
5883
ning 01-bosqichi ga amal qiling
U <1 diapazonidagi barcha qatorlarni oʻchirib tashlaydi>“B5:D13” har qanday boʻsh katakga ega.
➤ F5
Natija<2 tugmasini bosing>:
Keyin, siz bo'sh katakni o'z ichiga olgan qatorni o'chirishingiz mumkin bo'ladi.
Batafsil o'qing: Excelda bo'sh qatorlarni qanday olib tashlash mumkin (11 usul)
6-usul: Agar butun qator bo'sh bo'lsa, qatorni o'chirish
Bu erda menda <1 bo'sh katak bor>B9 (men ushbu usul uchun qiymatlarni olib tashladim) va 12-qator boʻlgan boʻsh qator (men ushbu usul uchun qiymatlarni olib tashladim) va VBA kodi va COUNTA funktsiyasi Men bo'sh bo'lgan qatorni o'chirib tashlayman.
01-bosqich :
➤ 01-bosqichga amal qiling dan Usul-1
5520
“B5:D13” maʼlumotlar diapazoni va FOR sikl har bir hujayra uchun ishlaydi. bu diapazon.
CountA(cell.EntireRow) bo'sh bo'lmagan katakchalar sonini qaytaradi va u 0 bo'lganda qator o'chiriladi.
➤Bosing F5
Natija :
Shundan so'ng siz bo'sh qatorni o'chirishingiz mumkin bo'ladi, lekin u barcha bo'lmagan qatorlarni o'chira olmaydi. bu qatorning kataklari bo'sh.
Batafsil o'qing: Excelda bo'sh qatorlarni o'chirish uchun VBA-dan qanday foydalanish kerak
7-usul: Har bir n-qatorni oʻchirish
Ushbu usulga amal qilib, har bir n-qatorni (bu holda har 3-qatorni) oʻchirishingiz mumkin.
01-qadam :
➤ Usul-1
5344
“B5 dan 01-bosqich bosqichga amal qiling :D13” ma’lumotlar diapazoni va rc bu diapazonning umumiy qator raqamini qaytaradi, ya’ni 9 .
Bu yerda, FOR sikl bu holda rc yoki 9 bo'lgan oxirgi qatordan boshlanadi va birinchi qator bilan tugaydi.
-3-qadam bu diapazondagi har bir 3-chi qatorni oʻchirishga yordam beradi.
➤ F5
Keyin, siz Mahsulot nomlari Poyafzal 1 , Poyafzal2, va <8 boʻlgan qatorlarni oʻchirib tashlaysiz>Poyafzal3 .
Batafsil o'qing: Har n-chi R ni qanday o'chirish mumkin Excelda ow (eng oson 6 usul)
Shunga o'xshash o'qishlar:
- Excel VBA yordamida tanlangan qatorlarni qanday o'chirish mumkin (qadam- Bosqichma-bosqich yo'riqnoma)
- Excelda foydalanilmagan qatorlarni o'chirish (8 ta oson usul)
- Excelda yashirin qatorlarni qanday o'chirish (3 usul)
- Excelda cheksiz qatorlarni oʻchirish (5 ta oson usul)
- Excelda abadiy davom etadigan qatorlarni qanday oʻchirish mumkin (4 ta oson)Yo'llar)
8-usul: Yacheyka qiymatiga qarab qatorni o'chirish
Ushbu usulda men ma'lum bir qiymatga ega bo'lgan qatorni o'chirib tashlayman Ko'ylak 2 .
01-bosqich :
➤ Usulning 01-bosqich -ga amal qiling 1
7093
“B5:D13” maʼlumotlar diapazoni va FOR aylanasi ushbu diapazondagi har bir katak uchun ishlaydi.
Agar qatorning biron bir katagida “Koʻylak 2” qiymati boʻlsa, qator oʻchiriladi.
➤ F5<2 tugmasini bosing>
Natija :
Shunday qilib, siz Mahsulot nomi Koʻylak 2 boʻlgan qatorni oʻchirib tashlaysiz.
Batafsil o'qing: Agar hujayra Excelda qiymat bo'lsa, qatorni o'chirish uchun VBA makros (2 usul)
9-usul: Ikki nusxadagi satrlarni o'chirish
Bu erda menda Mahsulot kodi 97375 bo'lgan ikkita qator bor va shuning uchun men ushbu qatorlardan birini o'chirmoqchiman. quyida qizil quti.
01-bosqich :
➤ 01-bosqich ga rioya qiling>Usul-1
7903
Bu yerda “B5:D13” maʼlumotlar diapazoni va Ustunlar:=1 me u faqat bitta ustunda takrorlanuvchi qiymatlarni qidiradi, ya'ni ustun B boshlang'ich ustun, lekin agar siz boshqa ustunlarda ham qidirmoqchi bo'lsangiz, bu raqamdan o'z ehtiyojlaringizga qarab foydalanishingiz mumkin.
➤ F5
Natija tugmasini bosing:
Keyin siz quyidagi qatorni oʻchirishingiz mumkin boʻladi. boshqa qatorga o'xshash.
Batafsil o'qing: Qanday qilib takroriy qatorlarni o'chirish mumkinVBA bilan Excel (8 ta samarali usul)
10-usul: Jadvaldagi satrlarni o'chirish
Faraz qiling, sizda quyidagi jadval bor, uning nomi 1-jadval va endi siz ushbu jadvalning 6-qatorini oʻchirmoqchisiz. Buning uchun siz ushbu usulga amal qilishingiz mumkin.
01-bosqich :
➤Follow 01-bosqich ning Usul-1
7606
Bu yerda “Jadval” varaq nomi, “Jadval1” jadval nomi va 6 bu jadvalning siz oʻchirmoqchi boʻlgan qator raqami.
➤ F5
<1 tugmasini bosing>Natija :
Shunday qilib, siz ushbu jadvalning kerakli qatorini o'chirasiz.
Batafsil o'qing: Excel VBA-dan foydalanib, bitta ustunga asoslangan ikki nusxadagi qatorlarni qanday olib tashlash mumkin?
11-usul: Filtrdan so'ng ko'rinadigan qatorlarni o'chirish
Bu erda menda filtrlangan ma'lumotlar jadvali bor. 1500,00$ dan yuqori qiymatlar uchun Narx ustun va men filtrlashdan keyin barcha ko'rinadigan qatorlarni o'chirib tashlamoqchiman.
01-qadam :
➤ usul-1
8777
ning 01-bosqichi bosasiga amal qiling. Bu yerda “B5: D13” maʼlumotlar diapazoni.
➤ F5
tugmasini bosing. Endi filtrlashdan keyin barcha koʻrinadigan qatorlar o'chirilishi. Endi siz Narx ustunidagi Filtr belgisini tanlab, yashirin qatorlarni qaytarishingiz mumkin.
➤
➤ OK
Natija :
Batafsil o'qing: Excelda VBA yordamida qatorlarni qanday filtrlash va o'chirish mumkin (2 usul)
12-usul: Oxirgi faol katak asosida qatorni o'chirish
Bu erda mening oxirgi faol katakcham B13 va men uni quyidagi so'nggi faol katakchaga ega bo'lgan o'chirmoqchiman ma'lumotlar jadvali.
01-bosqich :
➤ usulning 01-bosqich -ga amal qiling. -1
1723
Bu yerda, 2 B ustuni mening faol hujayram joylashganligini bildiradi, siz oʻz ehtiyojlaringizga qarab raqamni oʻzgartirishingiz mumkin.
➤ F5
Natija tugmasini bosing:
Shunday qilib, siz oxirgi faol qator.
Batafsil o'qing: Ko'p hujayra qiymati (3 mezon) asosida qatorlarni o'chirish uchun Excel VBA kodi
Metod-13: Har qanday satrga ega satrlarni o'chirish
Faraz qiling, siz har qanday satrga ega bo'lgan satrlarni o'chirmoqchisiz va buning uchun siz ushbu usulga amal qilishingiz mumkin.
01-qadam :
➤ Usul-1
1600<0ning 01-bosqichbo'limini bajaring>Bu yerda “string”bu varaq nomi, ushbu ma'lumotlar diapazonining birinchi qator raqami 5va boshlang'ich ustun raqami 2
With iborasi ob'ektni belgilash imkonini beradi. yoki butun bir qator bayonotlar uchun foydalanuvchi tomonidan belgilangan tur.
On Error Resume Next operatori ish vaqtida xatolik yuz berganda, boshqaruv elementi quyidagi bayonotdan keyingi bayonotga o'tishini bildiradi. xatolik yuz berdi.
LastRow va Oxirgi ustun ma'lumotlar oralig'ining oxirgi satri va ustunini qaytaradi.
SpecialCells(xlCellTypeConstants, xlTextValues) har qanday matn qiymatiga ega satrlarni tanlaydi. diapazon.
➤ F5
Natija tugmasini bosing:
Keyin, siz har qanday matn qatoriga ega satrlarni oʻchiring.
Batafsil oʻqing: Qatorlarni oʻchirish uchun Excel yorligʻi (Bonus texnikasi bilan)
14-usul: Sanalar asosida qatorni o'chirish
Bu erda men maxsus sanaga ega bo'lgan qatorlarni o'chirib tashlayman 11/12/2021 (mm/dd/yyyy) DATEVALUE funksiyasidan foydalanadigan usul.
01-bosqich :
➤ bosqich- 01 dan Usul-1
6865
Bu yerda “Sana” varaq nomi, ushbu maʼlumotlar oraligʻining birinchi qator raqami 5 va mezon ustuni (qaysi ustunda sana bor) raqami 3 .
With operatori ob'ektni yoki foydalanuvchi tomonidan belgilangan turni bir marta belgilash imkonini beradi. butun bir qator bayonotlar uchun.
Keyingi xatoni davom ettirish haqida bayonoti shuni ko'rsatadiki, ishga tushirish vaqtida xatolik yuzaga kelganda, boshqaruv xato sodir bo'lgan bayonotdan keyingi bayonotga o'tadi.
LastRow ma'lumotlar oralig'ining oxirgi qatorini qaytaradi va bu erda FOR ko'chadan oxirgi satrdan boshlanadi, bu holda LastRow yoki 6 va birinchi qator bilan tugaydi.
DATEVALUE matn sanasini qiymatga aylantiradi.
Bu yerda Union qaytaradi
