두 엑셀 시트 비교하기, 동일한 통합 문서, 강조 표시 차이점

Question

엑셀 2007 vba에서 첫 발을 내딛고 있습니다. 내가 뭘 하려는지 내 마지막과 내 두 번째 마지막 엑셀 시트를 비교하고 마지막 하나의 차이점을 강조 매크로를 코딩하는 것입니다. 아래에서 볼 수 있듯이 디버깅 모드를 사용할 때 Excel은 다음과 같은 코드를 작성하고 Excel에서 오류를 표시하지 않지만 변경이 수행 된 셀은 표시하지 않습니다. 누구든지 모양을 가지고 아래 코드에서 실수를 수정할 수 있습니까? 고맙습니다.

Sub compare() 
Dim sh1 As Worksheet, sh2 As Worksheet 
Dim rCount As Long, cCount As Long 
Set sh1 = Worksheets(Sheets.Count - 1) 
Set sh2 = Worksheets(Sheets.Count) 
rCount = sh1.Cells(Rows.Count, 1).End(xlUp).Row 
cCount = sh1.Cells(Rows.Count, 1).End(xlUp).Row 
Dim r As Long, c As Integer 
For r = 1 To rCount 
    For c = 1 To cCount 
     If sh1.Cells(r, c) <> sh2.Cells(r, c) Then 
      sh2.Cells(r, c).Interior.ColorIndex = 3 
     End If 
    Next c 
Next r 

최종 하위

Answer 1

내 생각 만 SH1에서 한 행의 데이터를 가지고있다. rcount를 지정할 때 1의 값을 얻고 cCount를 할당 할 때 rcount와 같은 방식으로 할당하기 때문에 동일한 값을 얻게됩니다. 그런 다음 아마 단일 행과 단일 열을 반복하면서 하나의 셀만 비교 한 다음 서브 루틴을 종료합니다.

아마도 당신은 의미 : cCount = sh1.Cells(1, ColumnsCount).End(xltoLeft).Column