Excel-ში ერთ-ერთი ყველაზე მნიშვნელოვანი აქტივობაა დუბლიკატების ამოღება მოცემული მონაცემთა ნაკრებიდან. დღეს მე გაჩვენებთ, თუ როგორ უნდა ამოიღოთ დუბლიკატები Excel-ში მხოლოდ VBA-ს გამოყენებით.

ჩამოტვირთეთ პრაქტიკის სამუშაო წიგნი

3 სწრაფი მეთოდი Excel-ში VBA-ს გამოსაყენებლად დუბლიკატების მოსაშორებლად

აქ ჩვენ გვაქვს მონაცემთა ნაკრები სახელები, ID-ები, ქულები, და კლასები მზესუმზირის საბავშვო ბაღის ზოგიერთი მოსწავლის გამოცდაში.

თუ კარგად დააკვირდებით. , ნახავთ, რომ ზოგიერთი სახელი შეცდომით გაიმეორა.

დღეს ჩვენი მიზანია ამოიღოთ დუბლიკატი მნიშვნელობები Excel VBA-ს გამოყენებით.

1. გამოიყენეთ VBA დუბლიკატების ამოსაღებად ფიქსირებული უჯრედების დიაპაზონიდან

პირველ რიგში, ჩვენ შევეცდებით ამოშალოთ დუბლიკატი სახელები ფიქსირებული უჯრედების დიაპაზონის გამოყენებით VBA კოდი.

აქ, ჩვენი მონაცემთა ნაკრები არის დიაპაზონი B3:E15 სამუშაო წიგნში ( სვეტების სათაურების ჩათვლით ).

ჩვენ გამოვიყენებთ ეს ფიქსირებული უჯრედების დიაპაზონი კოდშია აქ.

ნაბიჯი 1:

➤ გახსენით ახალი VBA ფანჯარა და ჩადეთ ახალი მოდული (დააწკაპუნეთ აქ რომ ნახოთ როგორ გავხსნათ და ჩავდოთ ახალი VBA მოდული Excel-ში).

➤ ჩადეთ ეს კოდი მოდულში:

კოდი:

9876

➤ ის აწარმოებს მაკროს სახელწოდებით Remove_Duplicates . A3:E14 არის ჩემი მონაცემთა ნაკრების დიაპაზონი და მსურს წაშალო დუბლიკატი რიგები სვეტი 1 -ზე დაყრდნობით. შენგამოიყენეთ თქვენი.

ნაბიჯი 2:

➤ დაუბრუნდით თქვენს სამუშაო ფურცელს და გაუშვით ეს მაკრო (დააწკაპუნეთ აქ, რომ ნახოთ როგორ მაკრო გასაშვებად).

➤ წაშლის დუბლიკატების მქონე რიგებს სვეტში 1 ( მოსწავლის სახელი).

წაიკითხეთ მეტი: როგორ წაშალოთ დუბლიკატები Excel-ში, მაგრამ შეინახოთ ერთი (7 მეთოდი)

2. ჩადეთ VBA კოდები არჩეული უჯრედების დიაპაზონიდან დუბლიკატების წასაშლელად

ახლა ჩვენ შევეცდებით ავაშენოთ მაკრო, რომელსაც შეუძლია წაშალოს დუბლიკატები ნებისმიერი არჩეული უჯრედის დიაპაზონიდან სამუშაო ფურცელში.

ნაბიჯი 1:

➤ კვლავ გახსენით ახალი VBA ფანჯარა და ჩადეთ სხვა ახალი მოდული.

➤ ჩადეთ ეს კოდი მოდულში:

კოდი:

2204

➤ ის აწარმოებს მაკროს სახელწოდებით Remove_Duplicates . მე მინდა წავშალო დუბლიკატი რიგები სვეტი 1 -ზე დაფუძნებული. თქვენ იყენებთ თქვენს ერთს.

ნაბიჯი 2:

➤ დაუბრუნდით თქვენს სამუშაო ფურცელს.

➤ აირჩიეთ თქვენი მონაცემები დააყენეთ და გაუშვით ეს მაკრო.

➤ ის შეასრულებს იგივეს, რაც ზემოთ. წაშალეთ რიგები დუბლიკატებით პირველ სვეტში ( მოსწავლის სახელი).

წაიკითხეთ მეტი: როგორ ამოიღოთ დუბლიკატი რიგები Excel-ში (3 გზა)

მსგავსი წაკითხვები

• როგორ ამოიღოთ დუბლიკატები სვეტიდან Excel-ში (3 მეთოდი)
• Excel VBA: წაშალეთ დუბლიკატები მასივიდან (2 მაგალითი)
• როგორ ამოიღოთ დუბლიკატები და შევინარჩუნოთ პირველი მნიშვნელობა Excel-ში (5 მეთოდი)
• ამოღებადუბლიკატი რიგები, გარდა პირველი შემთხვევისა Excel-ში (7 გზა)
• როგორ ამოიღოთ ორივე დუბლიკატი Excel-ში (5 მარტივი გზა)

3. ჩადეთ VBA მაკრო მრავალი სვეტიდან დუბლიკატების წასაშლელად

აქამდე ჩვენ წავშალეთ რიგები, რომლებსაც აქვთ დუბლიკატები სვეტში 1 ( მოსწავლის სახელი ).

მაგრამ სინამდვილეში, ორი სტუდენტის სახელი შეიძლება იყოს იგივე, ეს ყოველთვის არ ნიშნავს იმას, რომ შეცდომით დაემატა თუ ორი სახელი ერთნაირია.

მაგრამ თუ ორი სტუდენტის პირადობის მოწმობაც იგივეა, მაშინ ისინი ერთი და იგივე სტუდენტია. შემდეგ მწკრივი უნდა წაიშალოს.

ამჯერად ჩვენ შევიმუშავებთ მაკროს, რომელიც წაშლის მწკრივს, თუ ორი მწკრივის სახელი და ID ერთნაირია.

ნაბიჯი 1 :

➤ კვლავ გახსენით ახალი VBA ფანჯარა და ჩადეთ სხვა ახალი მოდული.

➤ ჩადეთ ეს კოდი მოდულში:

კოდი:

3204

➤ ის აწარმოებს მაკროს სახელწოდებით Remove_Duplicates . მე მინდა წავშალო დუბლიკატი რიგები სვეტი 1 და 2 (სახელი და ID) . თქვენ იყენებთ თქვენს ერთს.

ნაბიჯი 2:

➤ დაუბრუნდით თქვენს სამუშაო ფურცელს.

➤ აირჩიეთ დააყენეთ თქვენი მონაცემები და გაუშვით ეს მაკრო.

➤ ამჯერად ის წაშლის სტრიქონებს მხოლოდ იმ შემთხვევაში, თუ სახელი და სტუდენტის ID ერთნაირია.

შენიშვნა: აქ ჯენიფერ მარლო არ არის ამოღებული, რადგან ორი სტუდენტის პირადობის მოწმობები განსხვავებულია, ანუ ისინი ორი განსხვავებული სტუდენტია.

დაწვრილებით: Excel VBA: წაშალეთ დუბლიკატები მრავალი სვეტის შედარებისას (3 მაგალითი)

დასკვნა

ამ მეთოდების გამოყენებით შეგიძლიათ წაშალოთ დუბლიკატები მონაცემთა ნაკრები Excel-ში VBA-ს გამოყენებით. გაქვთ რაიმე პრობლემა? თავისუფლად მოგვმართეთ.