Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս գտնել կրկնօրինակ կամ եզակի արժեքներ երկու թերթի երկու սյունակում:

Միգուցե համեմատեք երկու տիրույթներ նույն աշխատանքային թերթում և պարզեք, որ կրկնօրինակ կամ եզակի արժեքները ձեզանից շատերի համար հեշտ են, բայց եթե երկու միջակայքերը երկու տարբեր աշխատանքային թերթերում են, ապա ինչպե՞ս կարող եք արագ պարզել կրկնօրինակ և եզակի արժեքները այս երկու տիրույթներում: ? Այս ձեռնարկը ձեզ կներկայացնի մի քանի արագ կրճատումներ:

Excel- ում բանաձեւի հետ համեմատեք երկու տարածված թերթերի վերնագրի երկու նույն սյունները

Համեմատեք երկու տարածված թերթերում VBA- ի հետ

Համեմատեք երկու տարածված թերթերի մեջ Excel- ի համար նախատեսված Kutools- ի հետ

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Excel- ում բանաձեւի հետ համեմատեք երկու տարածված թերթերի վերնագրի երկու նույն սյունները

Excel- ում բանաձևով դուք կարող եք համեմատել վերնագրի երկու նույն սյունը, ինչպես ցույց է տրված ստորև, տարբեր թերթերում և գտնել կրկնօրինակ և եզակի արժեքները.

1. Մուտքագրելով այս բանաձևը = COUNTIF (թերթ 1! $ A: $ A, A1) դատարկ բջիջում, որը հարակից է թերթի 3-ի տիրույթին: Տեսեք,

2. Մամուլ Մտնել ստեղնաշարի կոճակը և այնուհետև քաշեք լրացման բռնիչը ՝ լրացնելու համար այն տիրույթը, որը ցանկանում եք համեմատել թերթի 1-ի միջակայքի հետ (համարը զրո նշանակում է կրկնակի արժեքներ երկու տիրույթներում, իսկ համարը 1 նշանակում է եզակի արժեքներ թերթ 3-ում, բայց ոչ թերթ 1-ում)

Հուշում.

1. Այս բանաձևը կարող է համեմատել միայն երկու սյունակները երկու աղյուսակների նույն վերնագրի հետ:

2. Եթե ցանկանում եք գտնել եզակի արժեքները Sheet1- ում, բայց ոչ Sheet3- ում, ապա պետք է մուտքագրեք վերը նշված բանաձևը =COUNTIF (թերթ 3! $ A: $ A, A1) թերթի մեջ 1:


նետ կապույտ աջ պղպջակ Համեմատեք երկու տարածված թերթերում VBA- ի հետ

1. Պահեք ALT կոճակը և սեղմել F11 ստեղնաշարի վրա բացելու համար a Microsoft Visual Basic կիրառման համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներև պատճենեք VBA- ն մոդուլի մեջ:

VBA. Համեմատեցեք երկու ընդգրկույթ երկու աղյուսակում

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Range A:", xTitleId, "" Type: = 8 ) Սահմանել WorkRng2 = Application.InputBox («Range B:», xTitleId, Type: = 8) WorkRng1- ի յուրաքանչյուր Rng1- ի համար rng1Value = Rng1.Value յուրաքանչյուր Rng2- ի համար RRNG2- ում Եթե rng1Value = Rng2.Value ապա Rng1.Interior.Color = VBA .RGB (255, 0, 0) Ելք վերջի համար, եթե հաջորդը հաջորդը Ենթ

3: սեղմեք Վազում կոճակը կամ սեղմել F5 ղեկավարել VBA- ն:

4. Էկրանի վրա կա երկխոսություն, և դուք պետք է ընտրեք մեկ տիրույթ, որի հետ ցանկանում եք համեմատել: Տեսեք,

5: սեղմեք Ok և ձեզ համար ցուցադրվում է մեկ այլ երկխոսություն `երկրորդ տիրույթն ընտրելու համար: Տեսեք,

6: սեղմեք Ok, և կրկնօրինակ արժեքները ինչպես A տիրույթում, այնպես էլ Range B- ում ընդգծվում են Range A- ի կարմիր ֆոնի վրա: Տեսեք,

Խորհուրդներ. Այս VBA- ի միջոցով դուք կարող եք համեմատել երկու միջակայք ինչպես նույն, այնպես էլ տարբեր աշխատանքային թերթերում:


նետ կապույտ աջ պղպջակ Համեմատեք երկու տարածված թերթերի մեջ Excel- ի համար նախատեսված Kutools- ի հետ

Եթե ​​բանաձևը ձեզ համար հարմար չէ, և VBA- ն դժվար է ձեզ համար, կարող եք փորձել Excel- ի համար նախատեսված գործիքներ's Համեմատեք միջակայքերը գործառույթը:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now

Խնդրում ենք դիմել Համեմատեք միջակայքերը գործառույթը ՝ կտտացնելով Կուտոլս > Համեմատեք միջակայքերը, Տեսեք,

Համեմատեք տարբեր սյունակների երկու սյունակների հետ.

1: սեղմեք Կուտոլս > Համեմատեք միջակայքերը, էկրանին ցուցադրվում է երկխոսություն: Տեսեք,

2. Նշեք միջակայքերը և կանոնները, արեք հետևյալը.

Թողնել Համեմատել նույն տիրույթում հանել ընտրությունը և կտտացնելով ընտրել երկու տիրույթ Լեռնաշղթա Ա և Լեռնաշղթա B, տես նկարի նկարը.

Նշեք նույն արժեքները կամ տարբեր արժեքներ, որոնք ցանկանում եք գտնել Կանոնների տակ գտնվող բացվող վանդակում;

3: սեղմեք Ok, Թռուցիկ երկխոսությունը ասում է, որ նույն արժեքներն են ընտրված:

4: սեղմեք Ok կոճակը ելնող երկխոսության մեջ: Երկու տիրույթների միջև նույն արժեքներն ընտրվում են Ա տիրույթում:

Համեմատեք տարածման աշխատաթերթերի երկու տիրույթ

Եթե ​​երկու աղյուսակում ունեք երկու տիրույթ, ինչպես ցույց է տրված ստորև, և ցանկանում եք համեմատել դրանք և պարզել տարբեր արժեքներ, կարող եք անել հետևյալը.

1: սեղմեք Կուտոլս > Համեմատեք միջակայքերը, էկրանին ցուցադրվում է երկխոսություն:

2. Նշեք միջակայքերը և կանոնները, արեք հետևյալը.

լքել Համեմատել նույն տիրույթում հանել ընտրությունը և կտտացնելով ընտրել երկու տիրույթ Լեռնաշղթա Ա և Լեռնաշղթա B;

Նշեք Կանոնների ներքո գտնվող բացվող վանդակում գտնվող տարբեր արժեքները, որոնք ցանկանում եք գտնել:

Ստուգեք Իմ տվյալներն ունեն վերնագրեր in Ընտրանքներ Բաժին;

3: սեղմեք Ok, Թռուցիկ երկխոսությունը ասում է, որ նույն արժեքներն են ընտրված:

4: սեղմեք Ok կոճակը ելնող երկխոսության մեջ: Ընտրված են Ա տիրույթի տարբեր արժեքները: Տեսեք,

Եթե ​​ցանկանում եք պարզել Sheet2- ի Range B- ի տարբեր արժեքները, ապա ձեզ հարկավոր է փոխել երկու միջակայքերը:

Համեմատեք միջակայքերը գործառույթը կարող է նաև համեմատել նույն թերթի միջակայքերը: Սեղմեք այստեղ ՝ համեմատելու տիրույթների մասին ավելին:


Հարաբերական հոդվածներ.


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ինչպես կարող եմ պարզել Excel-ում երկու սյունակների միջև եղած տարբերությունը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես պարզել նույն անունները տարբեր սյունակներից: Եթե ​​մի սյունակ պարունակում է 2000 գրառում, իսկ երկրորդը պարունակում է 20000 գրառում, ապա ինչպե՞ս համեմատել և տարբերակել այդ անունները: շնորհակալություն,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս համեմատել տվյալները երկու տարբեր Excel թերթերի միջև:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, կոդը աշխատում է, բայց ամբողջ տիրույթը ընդգծվում է, նույնիսկ եթե կրկնվող արժեքներ չկան: Օգնություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես պետք է փնտրեմ մի շարք արժեքներ բոլոր առկա աշխատաթերթերում, և եթե որևէ համընկնում լինի, ապա գույնի արժեքը սկզբնական տիրույթում: Ես փորձել եմ հետևյալ կոդը՝ Sub Compare3() Dim WorkRng1 Որպես Range Dim WorkRng2 Որպես Range Dim Rng1 Որպես Range Dim Rng2 Որպես Range Dim DataRange Որպես Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Սահմանել WorkRng1 = Application.InputBox equipos con cambios:", xTitleId, "", Type:=8) Սահմանել WorkRng2 = Range("B1" & LastRow) Յուրաքանչյուր Rng1-ի համար WorkRng1-ում rng1Value = Rng1.Value յուրաքանչյուր ws-ի համար ActiveWorkbook-ում.Աշխատանքային թերթիկներ յուրաքանչյուր Rng2-ի համար WorkRng2-ում, եթե rng1Value = Rng2.Value Այնուհետև Rng1.Interior.Color = VBA.RGB(200, 250, 200) Ելք վերջի համար, եթե հաջորդը հաջորդը հաջորդ վերջը Ենթակայն է: Բայց այն ոչ մի փոփոխություն չի կատարում, երբ համընկնում են... Կարո՞ղ է ինչ-որ մեկը օգնել: ? Շատ շնորհակալություն, բարի օր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, առավոտ, ես պետք է փնտրեմ մի շարք արժեքներ բոլոր առկա աշխատաթերթերում, և եթե որևէ համընկնում լինի, ապա գույնի արժեքը սկզբնական տիրույթում: Ես փորձել եմ հետևյալ կոդը՝ Sub Compare3() Dim WorkRng1 Որպես Range Dim WorkRng2 Որպես Range Dim Rng1 Որպես Range Dim Rng2 Որպես Range Dim DataRange Որպես Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Սահմանել WorkRng1 = Application.InputBox equipos con cambios:", xTitleId, "", Type:=8) Սահմանել WorkRng2 = Range("B1" & LastRow) Յուրաքանչյուր Rng1-ի համար WorkRng1-ում rng1Value = Rng1.Value յուրաքանչյուր ws-ի համար ActiveWorkbook-ում.Աշխատանքային թերթիկներ յուրաքանչյուր Rng2-ի համար WorkRng2-ում, եթե rng1Value = Rng2.Value Այնուհետև Rng1.Interior.Color = VBA.RGB(200, 250, 200) Ելք վերջի համար, եթե հաջորդը հաջորդը հաջորդ վերջը Ենթակայն է: Բայց այն ոչ մի փոփոխություն չի կատարում, երբ համընկնում են... Կարո՞ղ է ինչ-որ մեկը օգնել: ? Շատ շնորհակալություն, բարի օր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա լավ է. Այն ընդգծում է միայն մեկ թերթի կրկնօրինակ տարր: Բայց ես պետք է առանձնացնեմ երկու թերթիկը, որտեղ կրկնօրինակ տարրերն են
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք պետք է ավելացնեք երկրորդ հրամանը THEN հայտարարության ներսում:


Փորձեք այս;

Ենթահամեմատել միջակայքերը ()
«Թարմացնել 20130815
Dim WorkRng1 որպես միջակայք, WorkRng2 որպես միջակայք, Rng1 որպես միջակայք, Rng2 որպես միջակայք
xTitleId = «Մուտքագրեք տիրույթը համեմատության համար»
Սահմանեք WorkRng1 = Application.InputBox ("Range A:", xTitleId, "", Type:=8)
Սահմանել WorkRng2 = Application.InputBox ("Range B:", xTitleId, Type:=8)
Յուրաքանչյուր Rng1-ի համար WorkRng1-ում
rng1Value = Rng1.Value
Յուրաքանչյուր Rng2-ի համար WorkRng2-ում
Եթե ​​rng1Value = Rng2.Value Այնուհետեւ
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Ելք For
Վերջ: Եթե
հաջորդ
հաջորդ
Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից