How to compare two sheets and output differences AND similarities? VBA

[aNobleNoob]

I have a code that takes two sheets, compares them, and outputs the matches to another sheet. The code works fine but the only problem is that it outputs matches that are from any column. For example; if column A equals "Cab" in sheet 1 & column A equals "Cab" in sheet 2, it outputs the row as a match. What I'm trying to have the code do is check for a FULL ROW match, so that if every value in all columns of a row matches the entire row of the other sheet, then output those rows.
My current code:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Sub CompareSolve()
Dim i As Long
Dim j As Long
Dim n As Long
Dim ar As Variant

ar = Sheet2.Cells(10, 1).CurrentRegion.Value

With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 2 To UBound(ar, 1)
.Item(ar(i, 1)) = Empty
Next

ar = Sheet1.Cells(10, 1).CurrentRegion.Value
n = 1

For i = 2 To UBound(ar, 1)
If .exists(ar(i, 1)) Then
n = n + 1
For j = 1 To UBound(ar, 2)
ar(n, j) = ar(i, j)
Next j
End If
Next i
End With
Sheet3.Cells(10, 8).Resize(n, UBound(ar, 2)).Value = ar
End Sub</code>Any ideas on how I can modify this to work?

 

[MickG]

Try this:-

Sub CompareSolve()
[COLOR="Navy"]Dim[/COLOR] i [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] j [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] ar [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] Txt [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
 ar = Sheet2.Cells(10, 1).CurrentRegion.Value

[COLOR="Navy"]With[/COLOR] CreateObject("Scripting.Dictionary")
.CompareMode = 1
    [COLOR="Navy"]For[/COLOR] i = 2 To UBound(ar, 1)
      Txt = ""
        [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(ar, 2)
            Txt = Txt & "," & ar(i, Ac)
        [COLOR="Navy"]Next[/COLOR] Ac
        .Item(Txt) = Empty
    [COLOR="Navy"]Next[/COLOR]
 
 ar = Sheet1.Cells(10, 1).CurrentRegion.Value
 
[COLOR="Navy"]For[/COLOR] i = 2 To UBound(ar, 1)
    Txt = ""
    [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(ar, 2)
            Txt = Txt & "," & ar(i, Ac)
    [COLOR="Navy"]Next[/COLOR] Ac
    [COLOR="Navy"]If[/COLOR] .exists(Txt) [COLOR="Navy"]Then[/COLOR]
        n = n + 1
        [COLOR="Navy"]For[/COLOR] j = 1 To UBound(ar, 2)
            ar(n, j) = ar(i, j)
        [COLOR="Navy"]Next[/COLOR] j
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] i
[COLOR="Navy"]End[/COLOR] With
 Sheet3.Cells(10, 8).Resize(n, UBound(ar, 2)).Value = ar

Regards Mick