Բաց թողնել հիմնական բովանդակությունը

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

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

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

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

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


նետ կապույտ աջ պղպջակ 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- ի տարբեր արժեքները, ապա ձեզ հարկավոր է փոխել երկու միջակայքերը:

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


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations