Სარჩევი
თუ თქვენ ეძებთ მწკრივის წაშლის უმარტივეს გზას VBA -ის გამოყენებით, მაშინ თქვენ სწორ ადგილას ხართ.
მოდით, გადავიდეთ მთავარ სტატიაში.
ჩამოტვირთეთ სამუშაო წიგნი
VBA Delete Row.xlsm
14 გზა მწკრივის წაშლის VBA გამოყენებით
აქ, მე მაქვს სამი მონაცემი ცხრილები, რათა აჩვენონ რიგების წაშლის გზები VBA -ის გამოყენებით. პირველი ცხრილი შეიცავს რამდენიმე პროდუქტს კომპანიის და მათ ზომებს , ფასებს .
მეორე ერთს აქვს პროდუქტის კოდი და მათი შესაბამისი პროდუქტის ზომები და ფასები
და ბოლო შეიცავს ზოგიერთი პროექტის სახელები და მათი შესაბამისი დაწყების თარიღები და ღირებულებები .
სტატიის შესაქმნელად მე გამოიყენეთ Microsoft Excel 365 ვერსია, შეგიძლიათ გამოიყენოთ ნებისმიერი სხვა ვერსია თქვენი მოხერხებულობის მიხედვით.
მეთოდი-1: წაშალეთ ერთი რიგი VBA-ს გამოყენებით
ვთქვათ, თქვენ გსურთ წაშალოთ მწკრივი, რომელიც შეიცავს პროდუქტს ფეხსაცმელი 1, და ამ ერთი რიგის წასაშლელად შეგიძლიათ გამოიყენოთ ეს მეთოდი.
Step-01 :
➤გადადით დეველოპერზე Tab>> Visual Basic Option
შემდეგ, Visual Basic რედაქტორი გაიხსნება.
➤გადადით ჩასმა Tab>> მოდული Option
ამის შემდეგ შეიქმნება მოდული .
ნაბიჯი-02 :
➤დაწერეთ ფოლ დაბალი კოდი
3362
აქ, „Single“ არისმრავალი დიაპაზონის გაერთიანება, რომლებიც შეესაბამება უჯრედებს, რომლებსაც აქვთ თარიღი 11/12/2021 , და ბოლოს, დიაპაზონები წაიშლება.
➤დააჭირეთ F5
შედეგი :
ამის შემდეგ, თქვენ წაშლით სტრიქონებს, რომლებსაც აქვთ გარკვეული თარიღი 11/12/2021 .
დაკავშირებული კონტენტი: Excel VBA სტრიქონების წასაშლელად კონკრეტული მონაცემებით (9 მაგალითი)
ივარჯიშეთ სექცია
დამოუკიდებლად პრაქტიკის გასაკეთებლად, ჩვენ მოგაწოდეთ პრაქტიკა განყოფილება, როგორც ქვემოთ, ფურცელში სახელად პრაქტიკა . გთხოვთ, გააკეთეთ ეს დამოუკიდებლად.
დასკვნა
ამ სტატიაში შევეცადე გამეშუქებინა VBA ეფექტური გამოყენების უმარტივესი გზები რიგების წაშლა. იმედია გამოგადგებათ. თუ თქვენ გაქვთ რაიმე შემოთავაზება ან შეკითხვა, მოგერიდებათ გააზიაროთ ისინი კომენტარების განყოფილებაში.
სამუშაო ფურცლის სახელი და Rows(7)მოირჩევენ მწკრივის ნომერს..EntireRow.Delete წაშლის მთელი რიგი 7.
➤დააჭირეთ F5
შედეგი :
ამ გზით, თქვენ წაშლით მწკრივს, რომელიც შეიცავს პროდუქტის სახელი ფეხსაცმლის 1 .
დაწვრილებით: როგორ წაშალოთ რიგები Excel-ში: 7 მეთოდები
მეთოდი-2: წაშალეთ მრავალი მწკრივი VBA-ს გამოყენებით
თუ გსურთ წაშალოთ მრავალი მწკრივი, როგორიცაა რიგები, რომლებიც შეიცავს პროდუქტის სახელებს Shoe1 , Shoe2, და Shoe3 , შემდეგ შეგიძლიათ მიჰყვეთ ამ VBA კოდს.
Step-01 :
➤მიჰყევით Step-01 Method-1
1830
აქ, რიგის ნომრები 13, 10 , და 7 წაიშლება და სერიულად ჩაწერისას მწკრივის ნომრები უნდა ჩაწეროთ ბოლო რიგის ნომრიდან პირველ რიგის ნომერზე ამ კოდის მსგავსად.
წინააღმდეგ შემთხვევაში, პირველი რიგის წაშლის შემდეგ, როგორიცაა რიგი 7, დარჩენილი ამ მწკრივის ქვემოთ მწკრივები გადავა ერთი მწკრივი ზემოთ და ამგვარად, რიგი 10 იქნება რიგი 9, ხოლო რიგი 13 იქნება მწკრივი 12. ასე რომ, თქვენ ვერ შეძლებთ სწორი სტრიქონების წაშლას.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ წაშლით სტრიქონებს, რომლებიც შეიცავს პროდუქტის სახელებს Shoe 1 , Shoe2, და Shoe3 .
დაწვრილებით: როგორ წაშალოთ მრავალი მწკრივი Excel-ში (3 მეთოდი)
მეთოდი-3 : მწკრივის წაშლა არჩევით
აქ, მე გაჩვენებთ მწკრივის წაშლის გზასამ მწკრივის აქტიურ უჯრედთან მიმართებაში.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯ-01 მეთოდი-1-დან
7110
წაშლის მწკრივს, რომელსაც აქვს აქტიური უჯრედი.
➤ შეინახეთ კოდი.
ნაბიჯი-02 :
➤აირჩიეთ მწკრივის ნებისმიერი უჯრედი, რომლის წაშლაც გსურთ ( აქ მე ავირჩიე უჯრედი B7 )
➤გადადით Developer Tab>> Macros Option
ამის შემდეგ, Macro Wizard გაიხსნება.
➤აირჩიეთ მაკროს სახელი dltrow3 და დააჭირეთ Run
შედეგი :
შემდეგ, თქვენ წაშლით რიგს, რომელიც შეიცავს პროდუქტის სახელს ფეხსაცმლის 1 .
მეთოდი-4: არჩევის ყველა მწკრივის წაშლა
შერჩევის ყველა მწკრივის წასაშლელად შეგიძლიათ მიჰყვეთ ამ მეთოდს.
Step-01 :
➤მიჰყევით Step-01 of Method-1
8670
It წაშლის შერჩევის ყველა მწკრივს.
➤ შეინახეთ კოდი.
ნაბიჯი-02 :
➤აირჩიეთ რიგების დიაპაზონი, რომლის წაშლა გსურთ (აქ, მე ავირჩიე დიაპაზონი B7:D9 )
➤გადადით დეველოპერი Tab>> მაკროები ოფცია
ამის შემდეგ, Macro Wizard გაიხსნება.
➤აირჩიეთ მაკროს სახელი dltrow4 და დააჭირეთ Run
შედეგი :
შემდეგ, თქვენ წაშლით სტრიქონებს, რომლებიც შეიცავს პროდუქტის სახელები ფეხსაცმლის 1 , ქურთუკი1, და Jacket2 .
დაწვრილებით: როგორ წაშალოთ არჩეული რიგები Excel-ში (8 მიდგომა)
მეთოდი-5: მწკრივის წაშლა, თუ რომელიმე უჯრედი ცარიელია
აქ მე მაქვს ცარიელი უჯრედი, რომელიც არის B9 (ამ უჯრიდან ამოვიღე მნიშვნელობა მეთოდი), და VBA კოდის გამოყენებით წავშლი რიგს, რომელსაც აქვს B9 უჯრედი.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯი-01 მეთოდი-1
1640
ეს წაშლის ყველა მწკრივს დიაპაზონში „B5:D13“ აქვს რაიმე ცარიელი უჯრედი.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ შეძლებთ წაშალოთ მწკრივი, რომელიც შეიცავს ცარიელ უჯრედს.
დაწვრილებით: როგორ ამოიღოთ ცარიელი რიგები Excel-ში (11 მეთოდი)
მეთოდი-6: მწკრივის წაშლა თუ მთელი რიგი ცარიელია
აქ, მე მაქვს ცარიელი უჯრედი, რომელიც არის B9 (მე წავშალე ამ მეთოდის მნიშვნელობები) და ცარიელი მწკრივი, რომელიც არის რიგი 12 (მე წავშალე ამ მეთოდის მნიშვნელობები) და გამოიყენეთ VBA კოდი და COUNTA ფუნქცია მე წავშლი მწკრივს, რომელიც ცარიელია.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯ-01 მეთოდი-1
8363
„B5:D13“ არის მონაცემთა დიაპაზონი და FOR ციკლი იმუშავებს ყველა უჯრედზე ეს დიაპაზონი.
CountA(cell.EntireRow) უბრუნებს ცარიელი უჯრედების რაოდენობას და როდესაც ის გახდება 0, მაშინ მწკრივი წაიშლება.
➤დააჭირე F5
შედეგი :
ამის შემდეგ, თქვენ შეძლებთ წაშალოთ ცარიელი მწკრივი, მაგრამ ის არ წაშლის არცერთ რიგს, რომელსაც არ აქვს ყველა ამ მწკრივის უჯრედები ცარიელია.
დაწვრილებით: როგორ გამოვიყენოთ VBA Excel-ში ცარიელი რიგების წასაშლელად
მეთოდი-7: ყოველი მე-n მწკრივის წაშლა
შეგიძლიათ წაშალოთ ყოველი n-ე მწკრივი (ამ შემთხვევაში ყოველი მე-3 მწკრივი) ამ მეთოდით.
Step-01 :
➤მიჰყევით Step-01 Method-1
8931
“B5 :D13” არის მონაცემთა დიაპაზონი და rc დააბრუნებს ამ დიაპაზონის მწკრივის მთლიან რაოდენობას, რომელიც არის 9 .
აქ, FOR ციკლი დაიწყება ბოლო მწკრივიდან, რომელიც არის rc ან 9 ამ შემთხვევაში და მთავრდება პირველი მწკრივით.
ნაბიჯი -3 დაგეხმარება ამ დიაპაზონის ყოველი მე-3 მწკრივის წაშლაში.
➤დააჭირე F5
შედეგი :
შემდეგ, თქვენ წაშლით სტრიქონებს, რომლებიც შეიცავს პროდუქტის სახელებს ფეხსაცმლის 1 , ფეხსაცმლის2, და Shoe3 .
წაიკითხეთ მეტი: როგორ წაშალოთ ყოველი მეხუთე R ow Excel-ში (უმარტივესი 6 გზა)
მსგავსი წაკითხვები:
- როგორ წაშალოთ არჩეული რიგები Excel VBA-ით (ნაბიჯი- ნაბიჯ-ნაბიჯ სახელმძღვანელო)
- წაშალეთ გამოუყენებელი რიგები Excel-ში (8 მარტივი გზა)
- როგორ წავშალოთ ფარული რიგები Excel-ში (3 მეთოდი)
- წაშალეთ უსასრულო რიგები Excel-ში (5 მარტივი გზა)
- როგორ წაშალოთ რიგები Excel-ში, რომლებიც სამუდამოდ გრძელდება (4 მარტივიგზები)
მეთოდი-8: მწკრივის წაშლა უჯრედის მნიშვნელობის მიხედვით
ამ მეთოდით, მე წავშლი რიგს, რომელსაც აქვს კონკრეტული მნიშვნელობა Shirt 2 .
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯი-01 მეთოდი- 1
Sub dltrow8() Dim cell As Range For Each cell In Range("B5:D13") If cell.Value = "Shirt 2" Then cell.EntireRow.Delete End If Next cell End Sub„B5:D13“ არის მონაცემთა დიაპაზონი და FOR ციკლი იმუშავებს ამ დიაპაზონის ყველა უჯრედზე.
თუ მწკრივის რომელიმე უჯრედი შეიცავს მნიშვნელობას „Shirt 2“ მაშინ მწკრივი წაიშლება.
➤დააჭირეთ F5
შედეგი :
ამ გზით თქვენ წაშლით რიგს, რომელიც შეიცავს პროდუქტის სახელს პერანგს 2 .
დაწვრილებით: VBA მაკრო მწკრივის წასაშლელად, თუ უჯრედი შეიცავს მნიშვნელობას Excel-ში (2 მეთოდი)
მეთოდი-9: დუბლიკატი მწკრივების წაშლა
აქ, მე მაქვს ორი მწკრივი, რომელსაც აქვს პროდუქტის კოდი 97375 და ამიტომ მინდა წავშალო ამ მწკრივიდან ერთი, რომელიც მონიშნულია წითელი ველი ქვემოთ.
ნაბიჯი-01 :
➤მიყევით ნაბიჯი-01 <1-დან>მეთოდი-1
2000
აქ, „B5:D13“ არის მონაცემთა დიაპაზონი და სვეტები:=1 me და ის მოიძიებს დუბლიკატულ მნიშვნელობებს მხოლოდ ერთ სვეტში, რომელიც არის საწყისი სვეტი სვეტი B მაგრამ თუ გსურთ სხვა სვეტებშიც მოძებნოთ, შეგიძლიათ გამოიყენოთ ეს რიცხვი თქვენი საჭიროების მიხედვით.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ შეძლებთ წაშალოთ მწკრივი, რომელიც არის სხვა მწკრივის მსგავსი.
დაწვრილებით: როგორ წაშალოთ დუბლიკატი რიგებიExcel ერთად VBA (8 ეფექტური გზა)
მეთოდი-10: ცხრილის რიგების წაშლა
დავუშვათ, რომ თქვენ გაქვთ შემდეგი ცხრილი, რომლის სახელია Table1 და ახლა გსურთ წაშალოთ ამ ცხრილის რიგის ნომერი 6. ამისათვის შეგიძლიათ მიჰყვეთ ამ მეთოდს.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯ-01 <2 მეთოდი-1
3413
აქ, „ცხრილი“ არის ფურცლის სახელი, „ცხრილი1“ არის ცხრილის სახელი და 6 არის ამ ცხრილის რიგის ნომერი, რომლის წაშლა გსურთ.
➤დააჭირეთ F5
შედეგი :
ამ გზით თქვენ წაშლით ამ ცხრილის სასურველ რიგს.
დაწვრილებით: როგორ წავშალოთ დუბლიკატი რიგები ერთ სვეტზე დაყრდნობით Excel VBA-ს გამოყენებით
მეთოდი-11: ხილული რიგების წაშლა ფილტრაციის შემდეგ
აქ, მე მაქვს მონაცემთა ცხრილი, რომელიც გაფილტრულია ფასი სვეტი $1,500.00-ზე მეტი მნიშვნელობისთვის და მინდა წავშალო ყველა ხილული მწკრივი ფილტრაციის შემდეგ.
Step-01 :
➤მიჰყევით Step-01 Method-1
1267
აქ, „B5: D13” არის მონაცემთა დიაპაზონი.
➤დააჭირეთ F5
ახლა, გაფილტვრის შემდეგ ყველა ხილული მწკრივი იქნება წაიშალოს. ახლა თქვენ შეგიძლიათ დააბრუნოთ დამალული რიგები ფილტრი ნიშნის არჩევით ფასი სვეტში.
➤დააწკაპუნეთ 1>აირჩიეთ ყველა ვარიანტი
➤დააჭირეთ OK
შედეგი :
და ბოლოს, თქვენ დაიბრუნებთ დამალულ რიგებსმონაცემთა ცხრილი.
დაწვრილებით: როგორ გავფილტროთ და წავშალოთ რიგები VBA-ით Excel-ში (2 მეთოდი)
მეთოდი-12: მწკრივის წაშლა ბოლო აქტიურ უჯრედზე დაყრდნობით
აქ, ჩემი ბოლო აქტიური უჯრედი არის უჯრედი B13 და მე მინდა წავშალო ის, რომელსაც აქვს ბოლო აქტიური უჯრედი შემდეგიდან. მონაცემთა ცხრილი.
Step-01 :
➤მიჰყევით Step-01 მეთოდი -1
3530
აქ 2 ნიშნავს სვეტა B რომელზეც მე მაქვს ჩემი აქტიური უჯრედი, შეგიძლიათ შეცვალოთ ნომერი თქვენი საჭიროების მიხედვით.
➤ დააჭირეთ F5
შედეგი :
ამ გზით თქვენ წაშლით თქვენს ბოლო აქტიური მწკრივი.
დაწვრილებით: Excel VBA კოდი რიგების წასაშლელად მრავალი უჯრედის მნიშვნელობის საფუძველზე (3 კრიტერიუმი)
მეთოდი-13: ნებისმიერი სტრიქონის მქონე მწკრივების წაშლა
ვუშვათ, რომ გსურთ წაშალოთ ნებისმიერი სტრიქონის მქონე რიგები და ამისათვის შეგიძლიათ მიჰყვეთ ამ მეთოდს.
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯ-01 მეთოდი-1
7173
აქ, „სტრიქონი“ არის ფურცლის სახელი, ამ მონაცემთა დიაპაზონის პირველი რიგის ნომერია 5 და საწყისი სვეტის ნომერია 2
With წინადადება გაძლევთ საშუალებას მიუთითოთ ობიექტი ან მომხმარებლის მიერ განსაზღვრული აკრიფეთ ერთხელ განცხადებების მთელი სერიისთვის.
Error Resume Next დებულება განსაზღვრავს, რომ როდესაც გაშვების დროის შეცდომა წარმოიქმნება, კონტროლი გადადის განცხადებაზე იმ განცხადების შემდეგ, სადაც შეცდომა ჩნდება.
LastRow და LastColumn აბრუნებს მონაცემთა დიაპაზონის ბოლო მწკრივს და სვეტს.
SpecialCells(xlCellTypeConstants, xlTextValues) შეარჩევს სტრიქონებს, რომლებსაც აქვთ ნებისმიერი ტექსტური მნიშვნელობა დიაპაზონი.
➤დააჭირეთ F5
შედეგი :
შემდეგ, თქვენ წაშალეთ ნებისმიერი ტექსტური სტრიქონის მქონე სტრიქონები.
დაწვრილებით: Excel-ის მალსახმობი რიგების წასაშლელად (ბონუსური ტექნიკით)
მეთოდი-14: მწკრივის წაშლა თარიღებზე დაყრდნობით
აქ, მე წავშლი სტრიქონებს, რომლებსაც აქვთ სპეციალური თარიღი 11/12/2021 (მმ/დდ/წწ) ამ მეთოდი DATEVALUE ფუნქციის გამოყენებით .
ნაბიჯი-01 :
➤მიჰყევით ნაბიჯს- 01 მეთოდი-1
8264
აქ, „თარიღი“ არის ფურცლის სახელი, ამ მონაცემთა დიაპაზონის პირველი რიგის ნომერია 5 და კრიტერიუმების სვეტის (რომელ სვეტს აქვს თარიღები) ნომერი არის 3 .
With განცხადება გაძლევთ საშუალებას ერთხელ მიუთითოთ ობიექტი ან მომხმარებლის მიერ განსაზღვრული ტიპი. განცხადებების მთელი სერიისთვის.
შეცდომის შესახებ Resume შემდეგი წინადადება განსაზღვრავს, რომ, როდესაც გაშვების დროის შეცდომა ჩნდება, კონტროლი გადადის განცხადების შემდეგ განცხადებაზე, სადაც მოხდა შეცდომა.
LastRow აბრუნებს მონაცემთა დიაპაზონის ბოლო რიგს და აქ FOR ციკლი დაიწყება ბოლო მწკრივიდან, რომელიც არის LastRow ან 6 ამ შემთხვევაში და მთავრდება პირველი მწკრივით.
DATEVALUE გადააქცევს ტექსტის თარიღს მნიშვნელობად.
აქ, Union დააბრუნებს
