' Clear all the indicators that previous comparisons may have set.
Private Sub ClearMarkers()
    ' Clear Sheet1
    
    'ThisWorkbook.Sheets.Select
    ActiveWorkbook.Sheets(1).Activate
    ActiveWorkbook.ActiveSheet.Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0
    ActiveWorkbook.ActiveSheet.Cells(1, 1).Select ' undo selection of entire sheet
    ' Clear Sheet2
    ActiveWorkbook.Sheets(2).Activate
    ActiveWorkbook.ActiveSheet.Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0
    ActiveWorkbook.ActiveSheet.Cells(1, 1).Select ' undo selection of entire sheet
End Sub

' Walk through Sheet1 and Sheet2, setting markers wherever differences
' in cell contents are found.
Public Sub Diff_Sheet_1_and_2()

    On Error GoTo ErrHandle
    Call ClearMarkers
    
    ' Determine range of used cells, using the highest row and column counts
    ' found in either of the two sheets.
    Dim HighRow As Long
    HighRow = ActiveWorkbook.Sheets(1).UsedRange.Rows.Count
    If ActiveWorkbook.Sheets(2).UsedRange.Rows.Count > HighRow Then
        HighRow = ActiveWorkbook.Sheets(2).UsedRange.Rows.Count
    End If
    Dim HighCol As Long
    HighCol = ActiveWorkbook.Sheets(1).UsedRange.Columns.Count
    If ActiveWorkbook.Sheets(2).UsedRange.Columns.Count > HighCol Then
        HighCol = ActiveWorkbook.Sheets(2).UsedRange.Columns.Count
    End If
    
    ' Walk through the cells of both sheets, comparing and changing colors
    ' if differences are found.
    Dim RowIndex As Long
    Dim ColIndex As Long
    
    Dim RowFirst As Long
    Dim ColFirst As Long
    
    For RowIndex = 1 To HighRow
    
        For ColIndex = 1 To HighCol
        
            ' Compare formulas, not "text" or other formatting-affected attributes.
            If ActiveWorkbook.Sheets(1).Cells(RowIndex, ColIndex).Formula <> ActiveWorkbook.Sheets(2).Cells(RowIndex, ColIndex).Formula Then
            
                ' Determine how to indicate the difference on Sheet1.
                If ActiveWorkbook.Sheets(1).Cells(RowIndex, ColIndex).Text = "" Then
                    ' If the cell contains no text, highlight the empty cell.
                    ActiveWorkbook.Sheets(1).Select
                    ActiveWorkbook.Sheets(1).Cells(RowIndex, ColIndex).Select
                    Selection.Interior.ColorIndex = 38
                Else
                    ' If the cell contains text, color the text.
                    ActiveWorkbook.Sheets(1).Cells(RowIndex, ColIndex).Font.Color = &HFF
                End If
                
                ' Determine how to indicate the difference on Sheet2.
                If ActiveWorkbook.Sheets(2).Cells(RowIndex, ColIndex).Text = "" Then
                    ' If the cell contains no text, highlight the empty cell.
                    ActiveWorkbook.Sheets(2).Select
                    ActiveWorkbook.Sheets(2).Cells(RowIndex, ColIndex).Select
                    Selection.Interior.ColorIndex = 38
                Else
                    ' If the cell contains text, color the text.
                    ActiveWorkbook.Sheets(2).Cells(RowIndex, ColIndex).Font.Color = &HFF
                End If
                
                ' If this is the first row containing a difference, remember the cell
                ' in which the change occurred so we can return to it later.
                If RowFirst = 0 Then
                    RowFirst = RowIndex
                    ColFirst = ColIndex
                End If
                
            End If
        Next
    Next
    
    ' Either report no differences or focus on the first difference found.
    If RowFirst = 0 Then
        MsgBox "No differences!"
    Else
        If ActiveWorkbook.ActiveSheet.Index = 1 Then
            ActiveWorkbook.Sheets(1).Cells(RowFirst, ColFirst).Activate
        End If
        If ActiveWorkbook.ActiveSheet.Index = 2 Then
            ActiveWorkbook.Sheets(2).Cells(RowFirst, ColFirst).Activate
        End If
    End If
    
    Exit Sub
    
ErrHandle:
    MsgBox Err.Description

End Sub

create table #T1 (
CountryName varchar(100) primary key,
ISO2 char(2),
ISO3 char(3),
ContinentName varchar(100));

insert into #T1 (CountryName, ISO2, ISO3, ContinentName)
exec dbo.MyProc1;

create table #T2 (
CountryName varchar(100) primary key,
ISO2 char(2),
ISO3 char(3),
ContinentName varchar(100));

insert into #T2 (CountryName, ISO2, ISO3, ContinentName)
exec dbo.MyProc2;

select *
from #T1 t1
full outer join #T2 t2
  on t1.CountryName = t2.CountryName
  and t1.ISO2 = t2.ISO2
  and t1.ISO3 = t2.ISO3
  and t1.ContinentName = t2.ContinentName
where t2.CountryName is null
or t1.CountryName is null;

  on t1.CountryName = t2.CountryName
  and t1.ContinentName != t2.ContinentName

SELECT * FROM table1
EXCEPT
SELECT * FROM table2

SELECT COUNT(*) FROM table1
SELECT COUNT(*) FROM table2
SELECT COUNT(*)
FROM
   (SELECT * FROM table1
    UNION
    SELECT * FROM table2) Combined

                Sheet1.Cells(RowIndex, ColIndex).AddComment "Value in worksheet " & Sheet2.Name & " is " & Sheet2.Cells(RowIndex, ColIndex).Formula
                Sheet2.Cells(RowIndex, ColIndex).AddComment "Value in worksheet " & Sheet1.Name & " is " & Sheet1.Cells(RowIndex, ColIndex).Formula

            ' Compare formulas, not "text" or other formatting-affected attributes.
            If Sheet1.Cells(RowIndex, ColIndex).Formula <> Sheet2.Cells(RowIndex, ColIndex).Formula Then