안녕하세요. 아별님 파이스입니다!

그간 폭염같은 무더위에 이어

이제는 질릴것 같은 빗줄기까지... 잘 지내고 계셨나요?

오늘은 지난번에 드렸던 질문의 확장판(?) 같은 것인데요,

우선 지난번에 가르쳐 주신 다음과 같은 프로시져가 있습니다.

Option Explicit

Sub compareSheets()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim r As Long, c As Long
    Dim maxr As Long, maxc As Long
    Dim diff As Long

    Set ws1 = Sheets(1)
    Set ws2 = Sheets(2)

    maxr = ws1.UsedRange.SpecialCells(xlLastCell).Row
    maxc = ws1.UsedRange.SpecialCells(xlLastCell).Column

    diff = 0
    For r = 1 To maxr
        For c = 1 To maxc
            If ws1.Cells(r, c).Formula <> ws2.Cells(r, c).Formula Then
               diff = diff + 1
               ws1.Cells(r, c).Interior.ColorIndex = 3
               ws2.Cells(r, c).Interior.ColorIndex = 3
            End If
        Next c
    Next r

    MsgBox "다른셀의 개수 :" & diff

End Sub

위의 내용은 서로다른 두시트를 비교하는 내용으로,

7, 8행 의

Set ws1 = Sheets(1)
Set ws2 = Sheets(2)

부분을

Set ws1 = workbook(1).Sheets(1)
Set ws2 = workbook(2).Sheets(1)

로 변형하기도 하면서 잘 쓰고 있었는데요,

갑자기 이런 상황이 발생한 것입니다.

각각 시트가 10개 이상인 2개의 엑셀파일(워크북)을 통채로 비교하려면 어떻게 해야되지???

저는 순간 멍해지면서 이리저리 수정 해보기 시작했습니다.

위의 7,8행을

Set ws1 = workbook(1)
Set ws2 = workbook(2)

으로도 고쳐보고

Set ws1 = workbook(1).Sheets(1)&Sheets(2)&Sheet(3)......
Set ws2 = workbook(2).Sheets(1)&Sheets(2)&Sheet(3)......

으로도 고쳐보고

3행의 ws1 지정도 workbook으로 바꾸어보고 해봤으나...

아쉽게도 모두 작동하지 않았습니다. ㅠ.ㅠ

위와 같은 상황에서 한수 가르침을 청하겠습니다.

편안한 하루 보내십시오.