Сравнение двух столбцов данных в двух разных листах и ​​печать различий / несоответствий в другом листе

Question

Я пытаюсь сравнить два столбца данных вместе в двух разных листах и ​​получить различия / несоответствия для копирования на третий лист. Когда я запускаю этот код ниже, он говорит, что нет никаких несоответствий, что ложно, потому что они есть. Будут ли люди рекомендовать vlookup, многомерный для цикла, соответствия и т. Д.?

'Project title variables
Dim currentTitle As String, oldTitle As String

'Use a variable to store the current row we are writing to
Dim rowRep As Long, rowData As Long
rowRep = ROW_REP_START
rowData = 1


'Go through each row
Dim rgCurRow As Range, rng As Range
For Each rgCurRow In rgCurrentData.Rows

    currentTitle = rgCurRow.Cells(1, COL_CURRENTDATA_PROJECTTITLE)


    oldTitle = rgCurRow.Cells(1, COL_OLDDATA_PROJECTTITLE)

    If Not StrComp(currentTitle, oldTitle, vbTextCompare) = 0 Then

        'Get the destination range - where the data will be written
         shResultSheet.Cells(rowRep, COL_REP_OWNINGBUSINESS).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_OWNINGBUSINESS).Value2
         shResultSheet.Cells(rowRep, COL_REP_BUSINESSSPONSOR).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_BUSINESSSPONSOR).Value2
         shResultSheet.Cells(rowRep, COL_REP_TECHLEAD).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_TECHLEAD).Value2
         shResultSheet.Cells(rowRep, COL_REP_TITLE).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_PROJECTTITLE).Value2
         shResultSheet.Cells(rowRep, COL_REP_DESCRIPTION).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_DESCRIPTION).Value2
         shResultSheet.Cells(rowRep, COL_REP_CURRENTSTATE).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_CURRENTSTATE).Value2
         shResultSheet.Cells(rowRep, COL_REP_CURRENTSTATUS).Value2 = rgCurrentData.Cells(rowData, COL_CURRENTDATA_CURRENTSTATUS).Value2

    End If

    'Move to the next report row
    rowRep = rowRep + 1
    rowData = rowData + 1

Next rgCurRow