VBA ашиглан мөрийг хэрхэн устгах вэ (14 арга)

Hugh West

05-06-2023 Макро & AMP; Excel VBA
  • Үүнийг Хуваалц
Hugh West

Хэрэв та VBA ашиглан мөр устгах хамгийн хялбар аргуудыг хайж байгаа бол та зөв газартаа байна.

Үндсэн өгүүлэл рүү орцгооё.

Ажлын номыг татаж авах

VBA Delete Row.xlsm

VBA ашиглан мөр устгах 14 арга

Энд надад гурван өгөгдөл байна. VBA ашиглан мөрүүдийг устгах аргуудыг харуулах хүснэгтүүд. Эхний хүснэгтэд компаний зарим Бүтээгдэхүүн ба тэдгээрийн Хэмжээ , Үнэ байна.

Хоёр дахь хүснэгт нэг нь Бүтээгдэхүүний код болон тэдгээрт тохирох Бүтээгдэхүүний хэмжээ ба Үнэ

Сүүлийнх нь зарим Төслийн нэр болон тэдгээрийн тус тусын Эхлэх огноо ба Зардал .

Өгүүллийг үүсгэхийн тулд би Microsoft Excel 365 хувилбарыг ашигласан бол та өөр ямар ч хувилбарыг өөрт тохирох хувилбарыг ашиглаж болно.

Арга-1: VBA ашиглан нэг мөр устгах

Та гэж бодъё. Бүтээгдэхүүн Гутлын 1, -г агуулсан мөрийг устгахыг хүсэж байгаа бөгөөд энэ нэг мөрийг устгахын тулд та энэ аргыг дагаж болно.

Алхам-01 :

➤ Хөгжүүлэгч Таб>> Visual Basic Сонголт

руу очно уу

Дараа нь Visual Basic Editor нээгдэнэ.

➤ Insert Tab>> Модуль Сонголт

руу очно уу.

Үүний дараа Модуль үүснэ.

Алхам-02 :

➤Үг бичнэ үү бууруулах код 

5593

Энд, “Ганц бие” нь 11/12/2021 огноотой нүднүүдэд тохирох олон мужуудын нэгдэл бөгөөд эцэст нь мужууд устах болно.

➤<дарна уу. 1>F5

Үр дүн :

Үүний дараа та 11/12/2021 тодорхой огноотой мөрүүдийг устгах болно. .

Холбогдох контент: Тодорхой өгөгдөл бүхий мөрүүдийг устгах Excel VBA (9 жишээ)

Дадлага хийх Хэсэг

Өөртөө дадлага хийхийн тулд бид доор дурдсантай адил Дасгал гэсэн хуудасны Дасгал хэсгийг өгсөн. Үүнийг өөрөө хий.

Дүгнэлт

Энэ нийтлэлд би VBA -г үр дүнтэй ашиглах хамгийн хялбар аргуудыг авч үзэхийг оролдсон. мөрүүдийг устгах. Энэ нь танд хэрэг болно гэж найдаж байна. Хэрэв танд ямар нэгэн санал, асуулт байвал коммент хэсэгт хуваалцаарай.

ажлын хуудасны нэр, Мөр(7)мөрийн дугаарыг сонгоно.

.Бүтэн мөр.Устгах 7 мөрийг бүхэлд нь устгана.

➤ F5

Үр дүн товчийг дарна уу:

Ийм байдлаар та <1 агуулсан мөрийг устгах болно>Бүтээгдэхүүний нэр Гутал 1 .

Дэлгэрэнгүй унших: Excel дээр мөрүүдийг хэрхэн устгах вэ: 7 Арга

Арга-2: VBA-г ашиглан олон мөр устгах

Хэрэв та Бүтээгдэхүүний нэр Гутал1<агуулсан мөр зэрэг олон мөрийг устгахыг хүсвэл 9>, Гутал2, болон Гутал3 , дараа нь та энэ VBA кодыг дагаж болно.

Алхам-01 :

➤ Арга-1 

9683

-ын Алхам-01 -ыг дагана уу. 13, 10-р мөрийн дугаар , болон 7-г устгаж, дараалсан мөрийн дугаарыг бичихдээ сүүлийн мөрийн дугаараас эхний эгнээний дугаар хүртэл энэ кодтой адил бичих хэрэгтэй.

Үгүй бол 7-р мөр шиг эхний мөрийг устгасны дараа үлдсэн хэсэг нь үлдэгдэлтэй болно. Энэ мөрний доорх мөрүүд нэг эгнээ дээшээ хөдөлж, 10-р мөр нь 9-р мөр, 13-р мөр нь 12-р мөр байх болно. ason, та зөв мөрүүдийг устгах боломжгүй.

➤ F5

Үр дүн товчийг дарна уу. :

Дараа нь Бүтээгдэхүүний нэр Гутлын 1 , Гутлын2, ба Гутлын3 гэсэн мөрүүдийг устгана.

Дэлгэрэнгүй унших: Excel дээр олон мөрийг хэрхэн устгах (3 арга)

Арга-3 :

-г сонгох замаар мөр устгах нь энд мөр устгах арга замыг зааж өгнө.тухайн мөрийн идэвхтэй нүдний талаар.

Алхам-01 :

➤ Алхам-01 Арга-1 

9040

Энэ нь идэвхтэй нүдтэй мөрийг устгана.

➤Кодыг хадгална уу.

Алхам-02 :

➤Устгах гэж буй мөрийн нүдийг сонгоно уу ( Энд би B7 нүдийг сонгосон)

➤ Хөгжүүлэгч Tab>> Макро Сонголт

Үүний дараа Макро Wizard нээгдэнэ.

➤ Макро нэрийг dltrow3 сонгоод Run

<3 товчийг дарна уу>

Үр дүн :

Дараа нь та Бүтээгдэхүүний нэр Гутал 1 агуулсан мөрийг устгах болно.

Арга-4: Сонголтын бүх мөрийг устгах

Сонголтын бүх мөрийг устгахын тулд та энэ аргыг ашиглаж болно.

Алхам-01 :

➤ Арга-1 

4180

-ын Алхам-01 -ыг дагах сонголтын бүх мөрийг устгах болно.

➤Кодыг хадгал.

Алхам-02 :

➤Устгах мөрийн хүрээгээ сонгоно уу (Энд би B7:D9 мужийг сонгосон)

➤ Хөгжүүлэгч Таб>> Макро Сонголт

<0 руу очно уу>

Үүний дараа Макро Шидтэн нээгдэнэ.

➤ Макро нэрийг dltrow4 сонгоно уу. Ажиллуулах

Үр дүн :

Дараа нь -г агуулсан мөрүүдийг устгах болно. Бүтээгдэхүүний нэр Гутлын 1 , Хүрэм1, болон Хүрэм2 .

Дэлгэрэнгүй унших: Excel дээр сонгосон мөрүүдийг хэрхэн устгах(8 хандлага)

Арга-5: Ямар нэг нүд хоосон байвал мөрийг устгах

Энд надад B9 хоосон нүд байна (Би энэ нүднээс утгыг устгасан. арга), мөн VBA код ашиглан би B9 нүдтэй мөрийг устгана.

Алхам-01 :

➤ Арга-1 

8781

-ын Алхам-01 -ыг дагах нь <1 муж дахь бүх мөрийг устгах болно>“B5:D13” хоосон нүдтэй байна.

➤ F5

Үр дүн<2 дээр дарна уу>:

Дараа нь хоосон нүдийг агуулсан мөрийг устгах боломжтой болно.

Дэлгэрэнгүй унших: Excel програмын хоосон мөрийг хэрхэн арилгах вэ (11 арга)

Арга-6: Хэрэв бүх мөр хоосон байвал мөр устгах

Энд надад <1 гэсэн хоосон нүд байна>B9 (би энэ аргын утгуудыг хассан) болон хоосон мөр нь 12-р мөр (би энэ аргын утгуудыг хассан), VBA код болон COUNTA функц Би хоосон мөрийг устгах болно.

Алхам-01 :

➤ Алхам-01-ийг дагаж мөрдөөрэй. Арга-1-ийн 

8713

“B5:D13” өгөгдлийн муж бөгөөд FOR гогцоо нь нүд бүрт ажиллана. энэ муж.

CountA(cell.EntireRow) хоосон бус нүдний тоог буцаах бөгөөд 0 болоход мөр устах болно.

➤Дарна уу F5

Үр дүн :

Үүний дараа та хоосон мөрийг устгах боломжтой боловч бүх мөргүй мөрийг устгахгүй. энэ мөрийн нүднүүд хоосон байна.

Дэлгэрэнгүй унших: Excel дээр хоосон мөрүүдийг устгахын тулд VBA-г хэрхэн ашиглах вэ

Арга-7: n-р мөр бүрийг устгах

Та энэ аргыг дагаж n-р мөр бүрийг (энэ тохиолдолд 3-р мөр бүрийг) устгаж болно.

Алхам-01 :

➤ Арга-1 

8471

“B5-ийн Алхам-01 -ыг дагана уу :D13” нь өгөгдлийн муж бөгөөд rc энэ мужаас 9 гэсэн нийт мөрийн дугаарыг буцаана.

Энд, FOR гогцоо нь энэ тохиолдолд rc эсвэл 9 гэсэн хамгийн сүүлийн эгнээнээс эхэлж эхний эгнээгээр дуусна.

Алхам -3 энэ муж дахь 3-р мөр бүрийг устгахад тусална.

➤ F5

<дарна уу. 1>Үр дүн :

Дараа нь Бүтээгдэхүүний нэрийг агуулсан мөрүүдийг устгах болно Гутал 1 , Гутал2, ба Гутал3 .

Дэлгэрэнгүй унших: n-р R бүрийг хэрхэн устгах вэ Excel-д ow (Хамгийн хялбар 6 арга)

Ижил төстэй заалтууд:

  • Excel VBA ашиглан сонгосон мөрүүдийг хэрхэн устгах вэ (Алхам- Алхам алхмаар зааварчилгаа)
  • Excel дээр ашиглагдаагүй мөрүүдийг устгах (8 хялбар арга)
  • Excel дээрх далд мөрүүдийг хэрхэн устгах (3 арга)
  • Excel дээрх хязгааргүй мөрүүдийг устгах (5 хялбар арга)
  • Excel дээр үүрд үргэлжлэх мөрүүдийг хэрхэн устгах вэ (4 хялбар)Арга)

Арга-8: Нүдний утгад үндэслэн мөрийг устгах

Энэ аргаар би тодорхой утгатай мөрийг устгах болно Цамц 2 .

Алхам-01 :

➤ Аргын Алхам-01 -ыг дагах 1 

3695

“B5:D13” нь өгөгдлийн муж бөгөөд FOR гогцоо нь энэ муж дахь нүд бүрт ажиллана.

Хэрэв мөрийн аль нэг нүдэнд “Цамц 2” гэсэн утгатай байвал мөр устах болно.

➤ F5<2 товчийг дарна уу>

Үр дүн :

Ийм байдлаар та Бүтээгдэхүүний нэрийг Цамц 2 агуулсан мөрийг устгах болно.

Дэлгэрэнгүй унших: Excel-ийн нүдэнд утга агуулагдаж байвал мөр устгах VBA макро (2 арга)

Арга-9: Давхардсан мөрүүдийг устгах

Энд надад Бүтээгдэхүүний код 97375 гэсэн хоёр мөр байгаа тул би эдгээр мөрүүдийн аль нэгийг устгахыг хүсэж байна. доорх улаан хайрцаг.

Алхам-01 :

➤<1-ийн Алхам-01 -ыг дагах>Арга-1

4123

Энд “B5:D13” өгөгдлийн муж ба Багана:=1 me Энэ нь зөвхөн нэг багананд давхардсан утгуудыг хайх бөгөөд энэ нь Б багана хэрэв та бусад багануудаас хайхыг хүсвэл өөрийн хэрэгцээнд нийцүүлэн энэ дугаарыг ашиглаж болно.

➤ F5

Үр дүн товчийг дарна уу:

Дараа нь та мөрийг устгах боломжтой болно. өөр мөртэй төстэй.

Дэлгэрэнгүй унших: Давхардсан мөрүүдийг хэрхэн устгах вэVBA-тай Excel (Үр дүнтэй 8 арга)

Арга-10: Хүснэгтийн мөрүүдийг устгах

Танд дараах хүснэгт байна гэж бодъё, түүний нэр Хүснэгт1 болон одоо та  энэ хүснэгтийн 6-р мөрийг устгахыг хүсэж байна. Үүнийг хийхийн тулд та энэ аргыг дагаж болно.

Алхам-01 :

➤ Алхам-01 <2-ыг дагаж мөрдөөрэй>ний Арга-1 

4970

Энд “Хүснэгт” нь хуудасны нэр, “Хүснэгт1” нь хүснэгтийн нэр, 6 нь энэ хүснэгтийн устгахыг хүсэж буй мөрийн дугаар юм.

➤ F5

<1 товчийг дарна уу>Үр дүн :

Ийм байдлаар та энэ хүснэгтийн өөрийн хүссэн мөрийг устгах болно.

Дэлгэрэнгүй унших: Excel VBA-г ашиглан нэг багана дээр үндэслэсэн давхардсан мөрүүдийг хэрхэн арилгах вэ

Арга-11: Шүүлтийн дараа харагдах мөрүүдийг устгах

Энд би дараах байдлаар шүүсэн өгөгдлийн хүснэгттэй байна. Үнэ баганыг $1,500.00 -с дээш үнэлдэг ба би шүүлтийн дараа харагдах бүх мөрийг устгахыг хүсэж байна.

Алхам-01 :

➤ Арга-1 

1969

-ын Алхам-01 алхамыг дагана уу “B5: D13” нь өгөгдлийн муж.

➤ F5

-г дарж шүүлтийн дараа харагдах бүх мөрүүд устгагдах. Та одоо Үнэ баганын Шүүлтүүр тэмдгийг сонгосноор далд мөрүүдийг буцааж авчрах боломжтой.

➤<дээр товшино уу. 1>Бүх сонголтыг сонгоно уу

➤ OK

Үр дүн :

<дарна уу. 0>Эцэст нь та далд мөрүүдийг буцааж авах болноөгөгдлийн хүснэгт.

Дэлгэрэнгүй унших: Excel дээр VBA ашиглан мөрүүдийг хэрхэн шүүж устгах вэ (2 арга)

Арга-12: Сүүлийн идэвхтэй нүдн дээр үндэслэн мөрийг устгах

Энд миний сүүлчийн идэвхтэй нүд нь B13 нүд бөгөөд би үүнийг дараахын сүүлчийн идэвхтэй нүдтэй устгахыг хүсэж байна. өгөгдлийн хүснэгт.

Алхам-01 :

➤ Аргын Алхам-01 -ыг дагана уу -1 

1781

Энд 2 гэдэг нь миний идэвхтэй нүдтэй В багана гэсэн утгатай тул та өөрийн хэрэгцээнд нийцүүлэн дугаарыг өөрчлөх боломжтой.

➤ F5

Үр дүн товчийг дар:

Ийм байдлаар та өөрийн сүүлийн идэвхтэй мөр.

Дэлгэрэнгүй унших: Олон нүдний утга (3 шалгуур) дээр үндэслэн мөрүүдийг устгах Excel VBA код

Арга-13: Дурын мөртэй мөрүүдийг устгах

Та дурын мөртэй мөрүүдийг устгахыг хүсэж байгаа бөгөөд үүнийг хийхийн тулд энэ аргыг хэрэглэж болно гэж бодъё.

Алхам-01 :

➤ Арга-1

Sub dltrow10() ActiveWorkbook.Worksheets("Table").ListObjects("Table1").ListRows(6).Delete End Sub<0-ийн Алхам-01-ыг дагах>Энд, “мөр”нь хуудасны нэр, Энэ өгөгдлийн мужын эхний эгнээний дугаар нь 5ба эхлэлийн баганын дугаар нь 2

With хэллэг нь объектыг зааж өгөх боломжийг олгоно. эсвэл бүхэл бүтэн цуврал өгүүлбэрт хэрэглэгчийн тодорхойлсон төрөл.

Алдааг үргэлжлүүлэх Дараах хэллэг нь ажиллах үеийн алдаа гарах үед удирдлага нь дараах мэдэгдлийн дараах мэдэгдэл рүү шилжихийг заадаг. алдаа гарлаа.

Сүүлийн эгнээ болон Сүүлчийн багана өгөгдлийн мужын сүүлчийн мөр ба баганыг буцаана.

SpecialCells(xlCellTypeConstants, xlTextValues) нь текстийн утга бүхий мөрүүдийг сонгоно. хүрээ.

➤ F5

Үр дүн товчийг дарна уу:

Дараа нь та ямар ч текстийн мөр бүхий мөрүүдийг устгана уу.

Дэлгэрэнгүй унших: Мөр устгах Excel товчлол (Урамшууллын техниктэй)

Арга-14: Огнооноос хамаарч мөрийг устгах

Энд би тусгай огноотой мөрүүдийг устгах болно 11/12/2021 (мм/gg/yyyy) DATEVALUE функц ашигласан арга.

Алхам-01 :

➤ Алхам- 01 -ын Арга-1 

9789

Энд, “Огноо” нь хуудасны нэр, энэ өгөгдлийн хүрээний эхний эгнээний дугаар нь байна. 5 ба шалгуурын багана (аль баганад огноотой) дугаар нь 3 байна.

With хэллэг нь объект эсвэл хэрэглэгчийн тодорхойлсон төрлийг нэг удаа зааж өгөх боломжийг олгоно. бүхэл бүтэн цуврал мэдэгдлүүдийн хувьд.

Алдааны дараагийн үргэлжлүүлэх тухай мэдэгдэл нь, Ажиллах үеийн алдаа гарах үед удирдлага нь алдаа гарсан мэдэгдлийн дараах мэдэгдэл рүү очдог.

LastRow өгөгдлийн мужын сүүлчийн мөрийг буцаадаг бөгөөд энд FOR гогцоо нь энэ тохиолдолд LastRow эсвэл 6 гэсэн хамгийн сүүлийн мөрөөс эхэлж, эхний мөрөөр төгсөнө.

DATEVALUE текст огноог утга болгон хувиргах болно.

Энд, Union

Өмнөх нийтлэл Excel дээр тэрэгний буцаалтыг хэрхэн арилгах вэ: 3 хялбар арга
Дараагийн бичлэг Excel дээр хоёр хүснэгтийг харьцуулж, ялгааг тодруулах (4 арга)

Хью Уэст бол салбартаа 10 гаруй жил ажилласан туршлагатай Excel-ийн сургагч багш, шинжээч юм. Нягтлан бодох бүртгэл, санхүүгийн чиглэлээр бакалавр, бизнесийн удирдлагын магистр зэрэгтэй. Хью багшлах сонирхолтой бөгөөд дагаж мөрдөх, ойлгоход хялбар заах өвөрмөц арга барилыг боловсруулсан. Түүний Excel-ийн мэдлэг чадвар нь дэлхий даяарх олон мянган оюутан, мэргэжилтнүүдэд ур чадвараа дээшлүүлж, ажил мэргэжлээрээ амжилт гаргахад тусалсан. Хью өөрийн блогоороо дамжуулан өөрийн мэдлэгээ дэлхийтэй хуваалцаж, Excel програмын үнэгүй зааварчилгаа, онлайн сургалтыг хувь хүмүүс болон бизнесүүдэд бүрэн дүүрэн ашиглахад нь туслах зорилгоор санал болгодог.