Բովանդակություն
Excel-ի ամենակարևոր գործողություններից մեկը տվյալ տվյալների հավաքածուից կրկնօրինակները հեռացնելն է: Այսօր ես ցույց կտամ, թե ինչպես հեռացնել կրկնօրինակները Excel-ում միայն VBA-ի միջոցով:
Ներբեռնեք Practice Workbook
Remove Duplicates in Excel-ի VBA.xlsm-ով
Excel-ում VBA-ի օգտագործման 3 արագ մեթոդ կրկնօրինակները հեռացնելու համար
Այստեղ մենք ունենք տվյալների հավաքածու Անուններ, ID-ներ, Գնահատականներ, և Գնահատականներ Արևածաղկի մանկապարտեզ կոչվող դպրոցի որոշ աշակերտների քննությունից:
Եթե ուշադիր նայեք. , դուք կտեսնեք, որ որոշ անուններ սխալմամբ կրկնվել են:
Այսօր մեր նպատակն է հեռացնել կրկնօրինակ արժեքները Excel VBA-ի միջոցով:
1. Օգտագործեք VBA՝ ֆիքսված բջիջների միջակայքից կրկնօրինակները հեռացնելու համար
Նախ, մենք կփորձենք հեռացնել կրկնօրինակ անունները ՝ օգտագործելով ֆիքսված բջիջների տիրույթը VBA կոդը:
Այստեղ մեր տվյալների հավաքածուն աշխատանքային գրքում B3:E15 միջակայքն է (ներառյալ Սյունակների վերնագրերը ):
Մենք կօգտագործենք այս ֆիքսված բջիջների միջակայքը կոդի մեջ այստեղ:
Քայլ 1.
➤ Բացեք նոր VBA պատուհան և տեղադրեք նոր մոդուլ (Սեղմեք այստեղ տեսնելու համար, թե ինչպես բացել և տեղադրել նոր VBA մոդուլ Excel-ում):
➤ Տեղադրեք այս կոդը մոդուլում.
Կոդ:
7733
➤ Այն արտադրում է մակրո, որը կոչվում է Remove_Duplicates : A3:E14 իմ տվյալների հավաքածուի տիրույթն է, և ես ուզում եմ հեռացնել կրկնօրինակ տողերը Սյունակ 1 հիման վրա: Դուքօգտագործեք ձեր մեկը:
Քայլ 2.
➤ Վերադարձեք ձեր աշխատաթերթին և գործարկեք այս մակրոն (Սեղմեք այստեղ՝ տեսնելու համար, թե ինչպես Macro գործարկելու համար):
➤ Այն կհեռացնի 1-ին սյունակի կրկնօրինակներով տողերը ( Ուսանողի անուն):
Կարդալ ավելին. Ինչպես ջնջել կրկնօրինակները Excel-ում, բայց պահպանել մեկը (7 մեթոդ)
2. Տեղադրեք VBA կոդեր՝ ընտրված բջիջների միջակայքից կրկնօրինակները հեռացնելու համար
Այժմ մենք կփորձենք ստեղծել մակրո, որը կարող է հեռացնել կրկնօրինակները աշխատաթերթի ցանկացած ընտրված բջիջների տիրույթից:
Քայլ 1:
➤ Կրկին բացեք նոր VBA պատուհանը և տեղադրեք մեկ այլ նոր մոդուլ:
➤ Տեղադրեք այս կոդը մոդուլում.
Կոդ՝
6526
➤ Այն արտադրում է մակրո, որը կոչվում է Remove_Duplicates : Ես ուզում եմ հեռացնել կրկնօրինակ տողերը՝ հիմնված Սյունակ 1 -ի վրա: Դուք օգտագործում եք ձեր մեկը:
Քայլ 2.
➤ Վերադարձեք ձեր աշխատաթերթին:
➤ Ընտրեք ձեր տվյալները հավաքեք և գործարկեք այս մակրոն:
➤ Այն կկատարի նույնը, ինչ արվեց վերևում: Հեռացրեք 1-ին սյունակի կրկնօրինակներով տողերը ( Ուսանողի անունը):
Կարդալ ավելին. Ինչպես հեռացնել կրկնօրինակը Տողեր Excel-ում (3 եղանակ)
Նմանատիպ ընթերցումներ
- Ինչպես հեռացնել կրկնօրինակները սյունակից Excel-ում (3 մեթոդ)
- Excel VBA. հեռացնել կրկնօրինակները զանգվածից (2 օրինակ)
- Ինչպես հեռացնել կրկնօրինակները և պահպանել առաջին արժեքը Excel-ում (5 մեթոդ)
- ՀեռացնելԿրկնվող տողեր, բացառությամբ Excel-ում առաջին դեպքի (7 եղանակ)
- Ինչպես հեռացնել երկու կրկնօրինակները Excel-ում (5 հեշտ եղանակ)
3. Տեղադրեք VBA մակրո՝ բազմակի սյունակներից կրկնօրինակները հեռացնելու համար
Մինչ այժմ մենք հեռացրել ենք 1-ին սյունակում կրկնվող տողերը ( Ուսանողի անունը ):
Բայց իրականում երկու ուսանողների անունները կարող են նույնը լինել, դա միշտ չէ, որ նշանակում է, որ այն սխալմամբ է ավելացվել, եթե երկու անուն նույնն են:
Բայց եթե երկու ուսանողի անձը նույնպես նույնն է, ուրեմն նրանք նույն ուսանողն են։ Այնուհետև տողը պետք է հեռացվի:
Այս անգամ մենք կմշակենք մակրո, որը կհեռացնի տողը, եթե երկու տողերի անունը և ID-ն նույնն են:
Քայլ 1: :
➤ Կրկին բացեք նոր VBA պատուհանը և տեղադրեք մեկ այլ նոր մոդուլ:
➤ Տեղադրեք այս կոդը մոդուլում.
Կոդ՝
1212
➤ Այն արտադրում է մակրո, որը կոչվում է Remove_Duplicates : Ես ուզում եմ հեռացնել կրկնօրինակ տողերը՝ հիմնված Սյունակ 1 և 2 (Անուն և ID) : Դուք օգտագործում եք ձեր մեկը:
Քայլ 2.
➤ Վերադարձեք ձեր աշխատաթերթին:
➤ Ընտրեք ձեր տվյալները հավաքեք և գործարկեք այս մակրոն:
➤ Այս անգամ այն կհեռացնի տողերը միայն այն դեպքում, եթե և՛ անունը, և՛ ուսանողի ID-ն նույնն են:
Նշում․ Այստեղ այն չի հեռացրել Ջենիֆեր Մարլոյին, քանի որ երկու ուսանողների ID-ները տարբեր են, այսինքն՝ նրանք երկու տարբեր ուսանողներ են։
Կարդալ ավելին. Excel VBA. Հեռացրեք կրկնօրինակները՝ համեմատելով բազմաթիվ սյունակներ (3 օրինակ)
Եզրակացություն
Օգտագործելով այս մեթոդները, դուք կարող եք հեռացնել կրկնօրինակները տվյալների հավաքածու Excel-ում VBA-ի միջոցով: Դուք խնդիրներ ունե՞ք։ Ազատորեն հարցրեք մեզ:
