## How to find duplicate or unique values in two columns of two sheets?

Maybe compare two ranges in the same worksheet and find out the duplicate or unique values is easy for most of you, but if the two ranges are in the two different worksheets, how can you quickly find out the duplicate and unique values in these two ranges? This tutorial will introduce some quick cuts for you.

Compare two same header columns in two spread sheets with formula in Excel

Compare two ranges in two spread sheets with VBA

Compare two ranges in two spread sheets with Kutools for Excel

#### Compare two same header columns in two spread sheets with formula in Excel

With the formula in Excel, you can compare two same header columns as shown as below on different sheets and find the duplicate and unique values:

1. Typing this formula =COUNTIF(Sheet1!\$A:\$A, A1) in a blank cell which is adjacent to the range in Sheet 3. See screenshot:

2. Press Enter button on the keyboard, and then drag the fill handle to fill the range you want to compare with the range in Sheet 1. (Number Zero means duplicate values in two ranges, and Number 1 means unique values in Sheet3, but not in Sheet1)

Tips:

1.This formula only can compare two columns with the same header in two spreadsheets.

2. If you want to find the unique values in Sheet1, but not in Sheet3, you need to enter the above formula =COUNTIF(Sheet3!\$A:\$A, A1) into Sheet1.

#### Compare two ranges in two spread sheets with VBA

1. Hold ALT button and press F11 on the keyboard to open a Microsoft Visual Basic for Application window.

2. Click Insert > Module, and copy the VBA into the module.

VBA: Compare two ranges in two spreadsheets

```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)
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)
Exit For
End If
Next
Next
End Sub```

3. Click Run button or press F5 to run the VBA.

4. There is a dialog displayed on the screen, and you should select one range you want to compare with. See screenshot:

5. Click Ok and another dialog is displayed for you to select the second range. See screenshot:

6. Click Ok, and the duplicate values both in Range A and in Range B are highlighted with the red background in Range A. See screenshot:

Tips: With this VBA, you can compare two ranges both in the same and different worksheets.

#### Compare two ranges in two spread sheets with Kutools for Excel

If formula is not convenient for you, and VBA is difficult for you, you can have a try on Kutools for Excel's Compare Ranges function.

Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 30 days. Get it Now

Please apply Compare Ranges function by clicking Kutools > Compare Ranges. See screenshot:

Compare with two columns in different sheets:

1. Click Kutools > Compare Ranges, a dialog is displayed in the screen. See screenshot:

2. Specify the ranges and rules, do as follows:

Leave Compare in same range uncheck, and select two ranges by clicking Range A and Range B, see screenshot:

Specify the same values or different values you want to find in the drop-down box under Rules;

3. Click Ok. A pop-up dialog tells you the same values are selected.

4. Click Ok button in the pop-up dialog. The same values between two ranges are selected in Range A.

Compare two ranges in spread worksheets

If you have two ranges in two spreadsheets as shown as below, and you want to compare them and find out the different values, you can do as follows:

1. Click Kutools > Compare Ranges, a dialog is displayed in the screen.

2. Specify the ranges and rules, do as follows:

Leave Compare in same range uncheck, and select two ranges by clicking Range A and Range B;

Specify the different values you want to find in the drop-down box under Rules;

Check My data has headers in Options section;

3. Click Ok. A pop-up dialog tells you the same values are selected.

4. Click Ok button in the pop-up dialog. The different values in Range A are selected. See screenshot:

If you want to find out the different values in Range B of Sheet2, you need to swap the two ranges.

Compare Ranges function also can compare ranges in the same sheet. Click here to know more about Compare Ranges.

### Best Office Productivity Tools

 ðŸ¤– Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functionsâ€¦ Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ... Super Lookup: Multiple Criteria VLookup  |   Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup .... Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List .... Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ... Featured Features: Grid Focus   |  Design View   |   Big Formula Bar   |  Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells   |  Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ... Top 15 Toolsets:  12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

#### Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
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