Əgər VBA istifadə edərək cərgəni silməyin ən asan yollarını axtarırsınızsa, o zaman doğru yerdəsiniz.

Gəlin əsas məqaləyə keçək.

İş kitabını endirin

VBA-dan istifadə edərək sətirləri silməyin 14 yolu

Burada üç məlumatım var VBA istifadə edərək sətirlərin silinməsi yollarını göstərmək üçün cədvəllər. Birinci cədvəldə şirkətin bəzi Məhsulları və onların Ölçüləri , Qiymətlər var.

İkinci birində bəzi Məhsul Kodları və onlara uyğun Məhsul Ölçüləri və Qiymətlər

Və sonuncusu ehtiva edir bəzi Layihə adları və onların müvafiq Başlanma tarixləri və Xərclər .

Məqaləni yaratmaq üçün mən Microsoft Excel 365 versiyasından istifadə etmisinizsə, siz öz rahatlığınıza uyğun olaraq istənilən digər versiyalardan istifadə edə bilərsiniz.

Metod-1: VBA-dan istifadə edərək Tək Sıra Silin

Deyək ki, siz Məhsul Ayaqqabı 1, olan cərgəni silmək istəyirsiniz və bu tək sıranı silmək üçün bu üsula əməl edə bilərsiniz.

Addım-01 :

➤ Developer Tab>> Visual Basic Seçim

Sonra, Visual Basic Redaktoru açılacaq.

➤ Daxil et Tab>> Modul Seçim

Bundan sonra Modul yaradılacaq.

Addım-02 :

➤Fol yazın aşağı kod

4145

Burada, “Tək” 11/12/2021 tarixi olan xanalara uyğun çoxsaylı diapazonların birləşməsi və nəhayət, diapazonlar silinəcək.

➤Press F5

Nəticə :

Bundan sonra 11/12/2021 müəyyən tarixi olan sətirləri siləcəksiniz. .

Əlaqədar Məzmun: Xüsusi Məlumatlı Sətirləri Silmək üçün Excel VBA (9 Nümunə)

Təcrübə Bölmə

Özünüz təcrübə etmək üçün biz Təcrübə adlı vərəqdə aşağıdakı kimi bir Təcrübə bölməsini təqdim etdik. Zəhmət olmasa bunu özünüz edin.

Nəticə

Bu məqalədə mən VBA dən səmərəli istifadə etməyin ən asan yollarını əhatə etməyə çalışdım. sıraların silinməsi. Ümid edirəm ki, faydalı tapacaqsınız. Hər hansı təklif və ya sualınız varsa, şərh bölməsində paylaşın.

.EntireRow.Delete bütün sətir 7-ni siləcək.

➤ F5

Nəticə düyməsini basın:

Beləliklə, <1 olan cərgəni siləcəksiniz>Məhsul adı Ayaqqabı 1 .

Ətraflı oxuyun: Excel-də sətirləri necə silmək olar: 7 Metodlar

Metod-2: VBA-dan istifadə edərək Çoxlu Sətirləri Silin

Əgər siz Məhsul adları Ayaqqabı1 , Ayaqqabı2, və Ayaqqabı3 , sonra bu VBA kodu izləyə bilərsiniz.

Addım-01 :

➤ Metod-1

4203

-dən Addım-01 ə əməl edin

Burada, sıra nömrələri 13, 10 , və 7 silinəcək və sətir nömrələrini ardıcıl olaraq yazmaq üçün bu kod kimi sonuncu sətir nömrəsindən birinci sıra nömrəsinə yazmalısınız.

Əks halda, 7-ci sətir kimi birinci cərgəni sildikdən sonra yerdə qalanlar bu cərgənin altındakı sətirlər bir sıra yuxarı hərəkət edəcək və beləliklə, 10-cu sətir 9-cu, 13-cü sıra isə 12-ci cərgə olacaq. sonra düzgün sətirləri silə bilməyəcəksiniz.

➤ F5

Nəticə düyməsini basın. :

Sonra, Məhsul adları Ayaqqabı 1 , Ayaqqabı2, və Ayaqqabı3 olan sətirləri siləcəksiniz.

Ətraflı oxuyun: Excel-də çoxlu sətirləri necə silmək olar (3 üsul)

Metod-3 :

Seçməklə Sətirin Silinməsi Burada bir sıra silməyin yolunu göstərəcəyəmhəmin cərgənin aktiv xanasına münasibətdə.

Addım-01 :

➤Follow Addım-01 -dən Metod-1

4458

O, aktiv xanası olan sıranı siləcək.

➤Kodu yadda saxlayın.

Addım-02 :

➤Silmək istədiyiniz cərgənin istənilən xanasını seçin ( Burada mən B7 xanasını seçmişəm)

➤ Developer Tab>> Makrolar Seçim

Bundan sonra Makro Sehrbaz açılacaq.

➤ Makro adını dltrow3 seçin və Çalışdır

<3 düyməsini basın>

Nəticə :

Daha sonra siz Məhsul adını Ayaqqabı 1 ehtiva edən sıranı siləcəksiniz.

Metod-4: Seçimdə Bütün Sətirlərin Silinməsi

Seçimin bütün sətirlərini silmək üçün bu üsula əməl edə bilərsiniz.

Addım-01 :

➤ Metod-1-in Addım-01 ə əməl edin

2922

Bu seçimin bütün sətirlərini siləcək.

➤Kodu yadda saxlayın.

Addım-02 :

➤Silmək istədiyiniz sıra aralığını seçin (Burada mən B7:D9 diapazonunu seçmişəm)

➤ Developer Tab>> Makrolara Seçim

Bundan sonra Makro Sehrbaz açılacaq.

➤ Makro adını dltrow4 seçin. və Çalışdır

Nəticə düyməsini basın:

Sonra olan sətirləri siləcəksiniz. Məhsul adları Ayaqqabı 1 , Gödəkçə1, və Jacket2 .

Ətraflı oxuyun: Excel-də Seçilmiş Sətirləri Necə Silmək olar(8 yanaşma)

Metod-5: Hər hansı Xana Boşdursa Sətirin Silinməsi

Burada B9 olan boş bir xana var (Bunun üçün bu xanadan dəyəri sildim metodu) və VBA kodundan istifadə edərək mən B9 xanası olan cərgəni siləcəyəm.

Addım-01 :

➤ Metod-1

4191

ün Addım-01 nə əməl edin

O, <1 diapazonunda olan bütün sətirləri siləcək>“B5:D13” hər hansı boş xana var.

➤ F5

Nəticə<2 düyməsini basın>:

Sonra siz boş xananı ehtiva edən cərgəni silə biləcəksiniz.

Ətraflı oxuyun: Exceldə Boş Sətirləri Necə Sil>B9 (mən bu metodun dəyərlərini silmişəm) və 12-ci sətir olan boş sətir (bu metodun dəyərlərini silmişəm) və VBA kodu və COUNTA funksiyası Boş olan sıranı siləcəyəm.

Addım-01 :

➤ Addım-01-i izləyin -dən Metod-1

8609

“B5:D13” verilənlər diapazonudur və FOR dövrəsi hər xana üçün işləyəcək bu diapazon.

CountA(cell.EntireRow) boş olmayan xanaların sayını qaytaracaq və 0 olduqda sətir silinəcək.

➤basın F5

Nəticə :

Bundan sonra siz boş cərgəni silə biləcəksiniz, lakin o, hamısına malik olmayan heç bir sıranı silməyəcək. bu cərgənin xanaları boşdur.

Ətraflı oxuyun: Excel-də boş sətirləri silmək üçün VBA-dan necə istifadə etməli

Metod-7: Hər n-ci sətirin silinməsi

Bu üsula əməl etməklə hər n-ci sətiri (bu halda hər 3-cü sıra) silə bilərsiniz.

Addım-01 :

➤ Metod-1

5424

“B5-dən Addım-01 ə əməl edin :D13” məlumat diapazonudur və rc bu diapazonun 9 olan ümumi sıra nömrəsini qaytaracaq.

Burada, FOR döngü bu halda rc və ya 9 olan sonuncu cərgədən başlayacaq və birinci cərgə ilə bitir.

Addım -3 bu diapazonda hər 3-cü sıranı silməyə kömək edəcək.

➤ F5

Nəticə :

Sonra Məhsul adlarını ehtiva edən sətirləri siləcəksiniz Ayaqqabı 1 , Ayaqqabı2, və Ayaqqabı3 .

Ətraflı oxuyun: Hər n-ci R-ni necə silmək olar Excel-də ow (Ən asan 6 yol)

Oxşar oxunuşlar:

• Excel VBA ilə seçilmiş sətirləri necə silmək olar (Addım- Addım-addım Təlimat)
• Excel-də istifadə olunmamış sətirləri silin (8 asan yol)
• Excel-də gizli sətirləri necə silmək olar (3 üsul)
• Excel-də Sonsuz Sıraları Silin (5 Asan Yol)
• Excel-də Əbədi Davam edən Sətirləri Necə Silmək olar (4 Asan)Yollar)

Metod-8: Hüceyrə dəyərinə əsasən sətirin silinməsi

Bu üsulda mən xüsusi dəyəri olan sıranı siləcəyəm Köynək 2 .

Addım-01 :

➤ Metodun Addım-01 -ni izləyin 1

7514

“B5:D13” məlumat diapazonudur və FOR dövrəsi bu diapazondakı hər bir xana üçün işləyəcək.

Əgər cərgənin hər hansı xanasında “Köynək 2” dəyəri varsa, cərgə silinəcək.

➤ F5<2 düyməsini basın>

Nəticə :

Bu yolla siz Məhsul adını Köynək 2 ehtiva edən cərgəni siləcəksiniz.

Ətraflı oxuyun: VBA Makrosu Excel-də Hüceyrədə Dəyər Tərkibində Sətiri Silmək üçün (2 Metod)

Metod-9: Dublikat sətirlərin silinməsi

Burada məndə Məhsul kodu 97375 olan iki cərgə var və buna görə də bu sətirlərdən birini silmək istəyirəm. aşağıda qırmızı qutu.

Addım-01 :

➤ addım-01 ə əməl edin>Metod-1

6591

Burada, “B5:D13” məlumat diapazonu və Sütunlar:=1 me o, dublikat dəyərləri yalnız bir sütunda axtaracaq, o da başlanğıc sütunu B sütunu lakin digər sütunlarda da axtarış etmək istəyirsinizsə, bu nömrəni ehtiyaclarınıza uyğun istifadə edə bilərsiniz.

➤ F5

Nəticə düyməsini basın:

Sonra, siz olan sıranı silə biləcəksiniz. başqa cərgəyə bənzəyir.

Ətraflı oxuyun: Dublikat sətirləri necə silmək olarVBA ilə Excel (8 Effektiv Yol)

Metod-10: Cədvəldəki sətirlərin silinməsi

Fərz edək ki, sizdə adı Cədvəl1 və aşağıdakı cədvəl var. indi bu cədvəlin 6-cı sırasını silmək istəyirsiniz. Bunu etmək üçün bu üsula əməl edə bilərsiniz.

Addım-01 :

➤Follow Addım-01 of Metod-1

9416

Burada “Cədvəl” vərəq adı, “Cədvəl1” cədvəlin adı və 6 bu cədvəlin silmək istədiyiniz sətir nömrəsidir.

➤ F5

<1 düyməsini basın>Nəticə :

Bu yolla siz bu cədvəlin istədiyiniz cərgəsini siləcəksiniz.

Ətraflı oxuyun: Excel VBA istifadə edərək bir sütuna əsaslanan dublikat sətirləri necə silmək olar

Metod-11: Filtrdən sonra görünən sətirlərin silinməsi

Burada məndə süzgəcdən keçən məlumat cədvəli var. 1500,00$ -dən yuxarı qiymətlər üçün Qiymət sütununu və mən filtrdən sonra görünən bütün sətirləri silmək istəyirəm.

Addım-01 :

➤ Metod-1

6377

6377

Burada, “B5: D13” məlumat diapazonudur.

➤ F5

İndi filtrdən sonra görünən bütün sətirlər silinsin. İndi Qiymət sütununda Filtr işarəsini seçməklə gizli sətirləri geri qaytara bilərsiniz.

➤<üzərinə klikləyin 1>Hamısını seçin seçimi

➤ OK

Nəticə düyməsini basın:

Nəhayət, siz gizli cərgələri geri alacaqsınızməlumat cədvəli.

Ətraflı oxuyun: Excel-də VBA ilə sətirləri necə süzgəcdən keçirmək və silmək olar (2 Metod)

Metod-12: Son Aktiv Xana əsasında Sətirin Silinməsi

Burada mənim son aktiv xanam B13 xanasıdır və mən aşağıdakıların sonuncu aktiv xanasına malik olan onu silmək istəyirəm. data cədvəli.

Addım-01 :

➤ Metodun Addım-01 -ni izləyin. -1

1894

Burada 2 B sütunu mənim aktiv hüceyrəm olduğu deməkdir, siz öz ehtiyaclarınıza uyğun olaraq nömrəni dəyişə bilərsiniz.

➤ F5

Nəticə düyməsini basın:

Beləliklə, siz son aktiv cərgə.

Ətraflı oxuyun: Birdən çox Hüceyrə Dəyəri (3 Meyar) əsasında Sətirləri Silmək üçün Excel VBA Kodu

Metod-13: İstənilən sətirləri olan sətirlərin silinməsi

Fərz edək ki, siz hər hansı bir sətirə malik olan sətirləri silmək istəyirsiniz və bunun üçün bu üsula əməl edə bilərsiniz.

Addım-01 :

➤ Metod-1

1264

With ifadəsi sizə obyekti təyin etməyə imkan verir və ya bütün bəyanatlar seriyası üçün bir dəfə istifadəçi tərəfindən müəyyən edilmiş tip.

On Error Resume Next ifadəsi müəyyən edir ki, icra zamanı xətası baş verdikdə, idarəetmə ifadəsindən sonra gələn ifadəyə keçir. xəta baş verir.

LastRow və Son Sütun məlumat diapazonunun son sətir və sütununu qaytarır.

SpecialCells(xlCellTypeConstants, xlTextValues) hər hansı mətn dəyəri olan sətirləri seçəcək. diapazon.

➤ F5

Nəticə düyməsini basın:

Sonra hər hansı mətn sətri olan sətirləri silin.

Ətraflı oxuyun: Satırları Silmək üçün Excel Qısayolu (Bonus Texnikaları ilə)

Metod-14: Tarixlərə əsasən sıranın silinməsi

Burada xüsusi tarixə malik olan sətirləri siləcəyəm 12/11/2021 (aa/gg/yyyy) TARİXVALUE funksiyasından istifadə edən metod.

Addım-01 :

➤ Addım- 01 -dən Metod-1

7632

Burada, “Tarix” vərəqin adıdır, bu məlumat diapazonunun birinci sıra nömrəsi -dir 5 və kriteriya sütunu (hansı sütunun tarixləri var) sayı 3 -dir.

With ifadəsi obyekti və ya istifadəçi tərəfindən müəyyən edilmiş növü bir dəfə təyin etməyə imkan verir. bütöv bir sıra bəyanatlar üçün.

On Error Resume Next ifadəsi göstərir ki, icra zamanı xətası baş verdikdə, idarəetmə xətanın baş verdiyi ifadədən sonrakı ifadəyə keçir.

LastRow məlumat diapazonunun son sırasını qaytarır və burada FOR dövrə bu halda LastRow və ya 6 olan sonuncu cərgədən başlayacaq və birinci sətirlə bitir.

DATEVALUE mətn tarixini dəyərə çevirəcək.

Burada, Birlik qaytaracaq