Прескочи на основното съдържание

Как да намеря дублирани или уникални стойности в две колони на два листа?

Автор: Слънце Последна промяна: 2013-09-17

Може би сравняването на два диапазона в един и същи работен лист и откриването на дублиращите се или уникалните стойности е лесно за повечето от вас, но ако двата диапазона са в двата различни работни листа, как можете бързо да откриете дублиращите се и уникалните стойности в тези два диапазона ? Този урок ще ви представи някои бързи съкращения.

Сравнете две еднакви колони със заглавки в две електронни таблици с формула в Excel

Сравнете два диапазона в два електронни листа с VBA

Сравнете два диапазона в два разпределени листа с Kutools за Excel


стрелка син десен балон Сравнете две еднакви колони със заглавки в две електронни таблици с формула в 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() 'Актуализиране 20130815 Dim WorkRng1 като диапазон, WorkRng2 като диапазон, Rng1 като диапазон, Rng2 като диапазон xTitleId = "KutoolsforExcel" Задайте WorkRng1 = Application.InputBox("Диапазон A:", xTitleId, "", Тип:=8 ) Задайте WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8) За всеки Rng1 в WorkRng1 rng1Value = Rng1.Value за всеки Rng2 в WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA .RGB(255, 0, 0) Изход За Край Ако Следващ Следващ Край Под

3. кликване бягане бутон или натиснете F5 за да стартирате VBA.

4. На екрана се показва диалогов прозорец и трябва да изберете един диапазон, с който искате да сравните. Вижте екранна снимка:

5. кликване Ok и се показва друг диалогов прозорец, за да изберете втория диапазон. Вижте екранна снимка:

6. кликване Ok, а дублиращите се стойности както в диапазон A, така и в диапазон B са маркирани с червения фон в диапазон A. Вижте екранна снимка:

Съвети: С този VBA можете да сравнявате два диапазона както в един, така и в различни работни листове.


стрелка син десен балон Сравнете два диапазона в два разпределени листа с Kutools за Excel

Ако формулата не ви е удобна и VBA ви е трудна, можете да опитате Kutools за Excel's Сравнете диапазони функция.

Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега

Моля, приложете Сравнете диапазони функция чрез щракване Kutools > Сравнете диапазони. Вижте екранна снимка:

Сравнете с две колони в различни листове:

1. кликване Kutools > Сравнете диапазони, на екрана се показва диалогов прозорец. Вижте екранна снимка:

2. Посочете диапазоните и правилата, направете следното:

Оставете Сравнете в същия диапазон премахнете отметката и изберете два диапазона, като щракнете Обхват А намлява Диапазон B, вижте екранна снимка:

Посочете същите стойности или различни стойности, които искате да намерите в падащото поле под Правила;

3. кликване Ok. Изскачащ диалогов прозорец ви казва, че са избрани същите стойности.

4. кликване Ok бутон в изскачащия диалогов прозорец. Същите стойности между два диапазона са избрани в диапазон A.

Сравнете два диапазона в разпределени работни листове

Ако имате два диапазона в две електронни таблици, както е показано по-долу, и искате да ги сравните и да откриете различните стойности, можете да направите следното:

1. кликване Kutools > Сравнете диапазони, на екрана се показва диалогов прозорец.

2. Посочете диапазоните и правилата, направете следното:

Оставям Сравнете в същия диапазон премахнете отметката и изберете два диапазона, като щракнете Обхват А намлява Диапазон B;

Посочете различните стойности, които искате да намерите в падащото поле под Правила;

Проверете Моите данни имат заглавки in Настроики раздел;

3. кликване Ok. Изскачащ диалогов прозорец ви казва, че са избрани същите стойности.

4. кликване Ok бутон в изскачащия диалогов прозорец. Избрани са различните стойности в диапазон A. Вижте екранна снимка:

Ако искате да откриете различните стойности в Range B на Sheet2, трябва да размените двата диапазона.

Сравнете диапазони функция също може да сравнява диапазони в един и същи лист. Щракнете тук, за да научите повече за сравнението на диапазоните.


Сродни статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, 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