지금 짜고있는 코드가

sheet1 shee2에 있는 값을 비교해서 

값이 다르면 해당셀만 색칠해서 표시

sheet1엔 없는값이 sheet2에 추가 되어있을땐 행전체 색칠하는 코드를 짜는중인데요


코드 보여드립니다


Sub test()

  Dim myRng1 As Range, myRng2 As Range

  Dim tbl1 As Variant, tbl2 As Variant

  Dim i As Long, j As Long, myRow As Long

  Set myRng1 = Worksheets("Sheet1").Range("A1").CurrentRegion 

  Set myRng2 = Worksheets("Sheet2").Range("A1").CurrentRegion 

  tbl1 = myRng1.Value

  tbl2 = myRng2.Value

  For i = 2 To UBound(tbl2)  

    myRow = 0

    On Error Resume Next

    With Application.WorksheetFunction

      myRow = .Match(tbl2(i, 1), .Index(tbl1, 0, 1), 0)

    End With

    On Error GoTo 0

        If myRow = 0 Then

           myRng2.Rows(i).Interior.ColorIndex = 8

        Else

            For j = 1 To 17 '列

                  If tbl1(myRow, j) <> tbl2(i, j) Then

                    myRng2.Cells(i, j).Interior.ColorIndex = 6

                End If

            Next j

        End If

    Next i

  End Sub



정상적으로 작동하는 데이터가 있는 반면

추가,변경과 상관없이 전부다 색이 칠해져버리는 경우가 있는데

코드상에서 뭐가 문제인걸까요? ㅠㅠ 도움부탁드립니다