Егер сіз VBA көмегімен жолды жоюдың ең оңай жолдарын іздесеңіз, онда сіз дұрыс жердесіз.

Негізгі мақалаға тоқталайық.

Жұмыс кітабын жүктеп алу

VBA көмегімен жолды жоюдың 14 жолы

Осы жерде менде үш деректер бар VBA көмегімен жолдарды жою жолдарын көрсету үшін кестелер. Бірінші кестеде компанияның кейбір Өнімдері және олардың Өлшемдері , Бағалары бар.

Екінші біреуінде кейбір Өнім кодтары және олардың сәйкес Өнім өлшемдері және Бағалары

Және соңғысы бар кейбір Жоба атаулары және олардың сәйкес Басталу күндері және Шығындар .

Мақаланы жасау үшін, мен Microsoft Excel 365 нұсқасын пайдаланған болсаңыз, сіз өзіңізге ыңғайлы кез келген басқа нұсқаларды пайдалана аласыз.

1-әдіс: VBA көмегімен бір жолды жою

Айталық, сіз Өнім 1, аяқ киімін қамтитын жолды жойғыңыз келсе және осы жалғыз жолды жою үшін осы әдісті орындауға болады.

01-қадам :

➤ Әзірлеуші ​​ қойындысы>> Visual Basic Опция

Содан кейін Visual Basic редакторы ашылады.

➤ Кірістіру Таб>> Модуль Опция

Одан кейін Модуль жасалады.

02-қадам :

➤Үлкенді жаз төмендету коды

9152

Мұнда, “Жалғыз” 11/12/2021 күні бар ұяшықтарға сәйкес бірнеше ауқымдардың бірігуі және соңында ауқымдар жойылады.

➤<пернесін басыңыз. 1>F5

Нәтиже :

Осыдан кейін белгілі бір күні 12/11/2021 болатын жолдарды жоясыз. .

Байланысты мазмұн: Арнайы деректері бар жолдарды жою үшін Excel VBA (9 мысал)

Тәжірибе Бөлім

Жаттығуды өз бетіңізше орындау үшін біз төмендегідей Тәжірибе деп аталатын парақта Тәжірибе бөлімін бердік. Мұны өзіңіз жасаңыз.

Қорытынды

Бұл мақалада мен VBA тиімді қолданудың ең оңай жолдарын қарастыруға тырыстым. жолдарды жою. Сізге пайдалы болады деп үміттенемін. Егер сізде қандай да бір ұсыныстарыңыз немесе сұрақтарыңыз болса, оларды түсініктеме бөлімінде бөлісіңіз.

.EntireRow.Delete барлық 7-жолды жояды.

➤ F5

Нәтиже пернесін басыңыз:

Осылайша <1 бар жолды жоясыз>Өнім атауы Аяқ киім 1 .

Толығырақ оқу: Excel бағдарламасындағы жолдарды жою әдісі: 7 Әдістер

2-әдіс: VBA көмегімен бірнеше жолдарды жою

Егер Өнім атаулары Аяқ1<бар жолдар сияқты бірнеше жолдарды жойғыңыз келсе 9>, Shoe2, және Shoe3 , содан кейін осы VBA кодын орындай аласыз.

01-қадам :

➤ 1-әдіс

1670

нің 01-қадам қадамын орындаңыз. Мұнда, 13, 10-жол нөмірлері , және 7 жойылады және жазбаша жол нөмірлері сериялық түрде осы код сияқты соңғы жол нөмірінен бірінші жол нөміріне дейін жазу керек.

Әйтпесе, 7-жол сияқты бірінші жолды жойғаннан кейін қалғаны осы жолдың астындағы жолдар бір жолға жоғары жылжиды және осылайша 10-жол 9-жол, ал 13-жол 12-жол болады. ason, сіз дұрыс жолдарды жоя алмайсыз.

➤ F5

Нәтиже пернесін басыңыз. :

Одан кейін Өнім атаулары Аяқ 1 , Аяқ 2, және Аяқ3 бар жолдарды жоясыз.

Толығырақ оқу: Excel бағдарламасында бірнеше жолдарды жою жолы (3 әдіс)

Әдіс-3 :

таңдау арқылы жолды жою Бұл жерде мен жолды жою жолын көрсетемінсол жолдың белсенді ұяшығына қатысты.

01-қадам :

➤ 01-қадам 1-әдіс

4285

Ол белсенді ұяшығы бар жолды жояды.

➤Кодты сақтаңыз.

02-қадам :

➤Жойғыңыз келетін жолдың кез келген ұяшығын таңдаңыз ( Мұнда мен B7 ұяшығын таңдадым)

➤ Әзірлеуші ​​ Tab>> Макростар Опция

Осыдан кейін Макрос Шебер ашылады.

➤ Макрос атауын dltrow3 таңдап, Орындау

<3 түймесін басыңыз>

Нәтиже :

Одан кейін Өнім атауы Аяқ киім 1 бар жолды жоясыз.

4-әдіс: Таңдаудағы барлық жолдарды жою

Таңдаудың барлық жолдарын жою үшін осы әдісті қолдануға болады.

01-қадам :

➤ Әдіс-1

5176

оның 01-қадам қадамын орындаңыз таңдаудың барлық жолдарын жояды.

➤Кодты сақтаңыз.

02-қадам :

➤Жойғыңыз келетін жолдар ауқымын таңдаңыз (Мұнда мен B7:D9 ауқымын таңдадым)

➤ Әзірлеуші ​​ қойындысы>> Макростар Параметр

Осыдан кейін Макрос Шебер ашылады.

➤ Макрос атауын dltrow4 таңдаңыз. және Орындау

Нәтиже түймесін басыңыз:

Содан кейін бар жолдарды жоясыз. Өнім атаулары Аяқ киім 1 , Күрте 1, және Jacket2 .

Толығырақ оқу: Excel бағдарламасында таңдалған жолдарды қалай жоюға болады(8 тәсіл)

5-әдіс: Кез келген ұяшық бос болса жолды жою

Мұнда менде бос ұяшық бар, ол B9 (бұл ұяшықтан мәнді алып тастадым. әдісі) және VBA кодын пайдалану арқылы мен B9 ұяшы бар жолды жоямын.

01-қадам :

➤ 1-әдіс

8943

01-қадам қадамын орындаңыз

Ол <1 ауқымындағы барлық жолдарды жояды>“B5:D13” кез келген бос ұяшық бар.

➤ F5

Нәтиже<2 пернесін басыңыз>:

Одан кейін бос ұяшықты қамтитын жолды жоюға болады.

Толығырақ оқу: Excel бағдарламасындағы бос жолдарды қалай жоюға болады (11 әдіс)

6-әдіс: Жолды жою Егер бүкіл жол бос болса

Мұнда менде бос ұяшық бар, ол B9 (осы әдіс үшін мәндерді алып тастадым) және бос жол 12-жол (осы әдіс үшін мәндерді алып тастадым) және VBA кодын және COUNTA функциясы Мен бос жолды жоямын.

01-қадам :

➤ 01-қадамды орындаңыз Әдіс-1

1530

“B5:D13” деректер ауқымы және FOR циклі әрбір ұяшық үшін жұмыс істейді бұл ауқым.

CountA(cell.EntireRow) бос емес ұяшықтардың санын қайтарады және ол 0 болғанда жол жойылады.

➤Басу F5

Нәтиже :

Осыдан кейін сіз бос жолды жоя аласыз, бірақ ол барлығы жоқ жолды жоймайды. осы жолдың ұяшықтары бос.

Толығырақ оқу: Excel бағдарламасындағы бос жолдарды жою үшін VBA әдісін пайдалану

7-әдіс: Әрбір n-ші жолды жою

Осы әдісті орындау арқылы әрбір n-ші жолды (бұл жағдайда әрбір 3-жолды) жоюға болады.

01-қадам :

➤ Әдіс-1

6540

«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

2048

“B5:D13” деректер ауқымы және FOR цикл осы ауқымдағы әрбір ұяшық үшін жұмыс істейді.

Егер жолдың кез келген ұяшығында “2-көйлек” мәні болса, жол жойылады.

➤ F5<2 пернесін басыңыз>

Нәтиже :

Осылайша, Өнім атауы 2-көйлек бар жолды жоясыз.

Толығырақ оқу: Ұяшық Excel бағдарламасындағы мәнді қамтитын болса, жолды жою үшін VBA макросы (2 әдіс)

Әдіс-9: Қайталанатын жолдарды жою

Мұнда менде Өнім коды 97375 бар екі жол бар, сондықтан мен белгіленген жолдардың бірін жойғым келеді. төмендегі қызыл жолақ.

01-қадам :

➤ 01-қадам қадамын орындаңыз>1-әдіс

4391

Мұнда, “B5:D13” деректер ауқымы және Бағандар:=1 me ол қайталанатын мәндерді тек бір бағанда іздейді, ол В бағаны бастапқы баған, бірақ басқа бағандарда да іздегіңіз келсе, бұл нөмірді қажеттіліктеріңізге сәйкес пайдалана аласыз.

➤ F5

Нәтиже пернесін басыңыз:

Одан кейін сіз келесі жолды жоя аласыз. басқа жолға ұқсас.

Толығырақ оқу: Қайталанатын жолдарды жою жолыVBA бар Excel бағдарламасы (8 тиімді жол)

10-әдіс: Кестедегі жолдарды жою

Айталық, сізде келесі кесте бар, оның аты Кесте1 және енді  осы кестенің №6 жолын жойғыңыз келеді. Ол үшін мына әдісті орындауға болады.

01-қадам :

➤ 01-қадам of Әдіс-1

4433

Мұнда, “Кесте” парақ атауы, “Кесте1” кесте аты және 6 бұл кестенің жойғыңыз келетін жол нөмірі.

➤ F5

<1 пернесін басыңыз>Нәтиже :

Осылайша сіз осы кестенің қалаған жолын жоясыз.

Толығырақ: Excel VBA көмегімен бір баған негізінде қайталанатын жолдарды қалай жоюға болады

11-әдіс: Сүзгіден кейін көрінетін жолдарды жою

Мұнда менде сүзгіден өткен деректер кестесі бар. 1500,00$ асатын мәндер үшін Баға баған және сүзгіден кейін барлық көрінетін жолдарды жойғым келеді.

01-қадам :

➤ Әдіс-1

8463

Мынадағы 01-қадам қадамын орындаңыз, “B5: D13” – деректер ауқымы.

➤ F5

басыңыз. Енді сүзгіден кейінгі барлық көрінетін жолдар жойылады. Енді Баға бағанындағы Сүзгі белгісін таңдау арқылы жасырын жолдарды қайтаруға болады.

➤ <түймесін басыңыз. 1>Барлығын таңдаңыз опциясын

➤ OK

Нәтиже басыңыз:

Соңында сіз жасырын жолдарды қайта аласыздеректер кестесі.

Толығырақ оқу: Excel бағдарламасында VBA көмегімен жолдарды қалай сүзуге және жоюға болады (2 әдіс)

12-әдіс: Соңғы белсенді ұяшыққа негізделген жолды жою

Мұнда менің соңғы белсенді ұяшықым B13 ұяшығы және келесілердің соңғы белсенді ұяшығы бар оны жойғым келеді. деректер кестесі.

01-қадам :

➤ әдістің 01-қадам қадамын орындаңыз. -1

8048

Бұл жерде 2 белсенді ұяшығым бар В баған дегенді білдіреді, нөмірді қажеттіліктеріңізге сәйкес өзгертуге болады.

➤ F5

Нәтиже пернесін басыңыз:

Осылайша сіз өз соңғы белсенді жол.

Толығырақ оқу: Бірнеше ұяшық мәніне негізделген жолдарды жоюға арналған Excel VBA коды (3 шарт)

13-әдіс: Кез келген жолдары бар жолдарды жою

Сіз кез келген жолы бар жолдарды жойғыңыз келеді делік және бұл әрекетті орындау үшін осы әдісті орындауға болады.

01-қадам :

➤ Әдіс-1

1480

With операторы нысанды көрсетуге мүмкіндік береді немесе мәлімдемелердің бүкіл сериясы үшін бір рет пайдаланушы анықтайтын түрі.

Қатені жалғастыру туралы оператор орындау уақытында қате орын алған кезде басқару элементі оператордан кейінгі операторға өтетінін көрсетеді. қате орын алады.

Соңғы қатар және LastColumn деректер ауқымының соңғы жолы мен бағанын қайтарады.

SpecialCells(xlCellTypeConstants, xlTextValues) кез келген мәтін мәндері бар жолдарды таңдайды. диапазон.

➤ F5

Нәтиже пернесін басыңыз:

Содан кейін сіз кез келген мәтін жолы бар жолдарды жойыңыз.

Толығырақ оқу: Жолдарды жоюға арналған Excel таңбашасы (бонусты әдістермен)

14-әдіс: Күндер негізінде жолды жою

Мұнда мен арнайы күні 12/11/2021 (мм/кк/жжж) бар жолдарды жоямын. DATEVALUE функциясы пайдаланатын әдіс.

01-қадам :

➤ қадам- 01 әдіс-1

8257

Мұнда, «Күні» парақ атауы, осы деректер ауқымының бірінші жолының нөмірі 5 және шарт бағанының (күндері бар) саны 3 .

With операторы нысанды немесе пайдаланушы анықтаған түрді бір рет көрсетуге мүмкіндік береді. мәлімдемелердің тұтас сериясы үшін.

Қате туралы келесіні жалғастыру мәлімдемесі мынаны көрсетеді: орындалу уақыты қатесі орын алғанда, басқару элементі қате орын алған мәлімдемеден кейінгі мәлімдемеге өтеді.

LastRow деректер ауқымының соңғы жолын қайтарады және мұнда FOR цикл бұл жағдайда Соңғы қатар немесе 6 болатын соңғы жолдан басталады және бірінші жолмен аяқталады.

DATEVALUE мәтін күнін мәнге түрлендіреді.

Мұнда, Union қайтарады