Excel 통합 문서에서 중복 찾기

Question

모든 시트에서 중복 된 행을 모두 찾아 강조 표시하는 Excel 통합 문서가 있습니다. 그것을 하나의 시트에서 어떻게 처리하는지 알아 냈습니다. 나를 도와 줄 수있는 사람?

단지 출발점

Answer 1

...

For b = 1 To Sheets.Count - 1 
    For e = 1 To 9000 
     yy = Sheets(b).Range("A" & e).Value 
     If yy = "" Then Exit For 
     For k = b + 1 To Sheets.Count 
      For i = 1 To 9000 
       If Sheets(k).Range("A" & i).Value = yy Then 
        Sheets(k).Range("A" & i).Interior.Color = 65500 
        Sheets(b).Range("A" & e).Interior.Color = 1265500 
       End If 
       If Sheets(k).Range("A" & i).Value = "" Then Exit For 
      Next 
     Next 
    Next 
Next 

모든 시트 사이에이 기능 검사 만 열 "A"공 i이없는 경우. 첫번째 발생과 다른 색깔을 설정하십시오 ... 큰 XLS가 있거나 검색 기준이 더 깊다면 (시트의 모든 셀을 AND 또는 NOT으로 확인하십시오 ...) prg가 많은 시간을 사용할 수 있습니다 ...