|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
서로 다른 workbook에 있는 sheet A와 sheet B의 데이터가 정확히 일치하는지 여부를 판단할 방법이 없어서 매크로로 구현해 보려 합니다.(혹시 팁이 있으시면 좀 알려주세요)
---------------------------------------------------------------
'//두 시트의 내용이 정확히 일치한지 아닌지...2003/07/09
Sub 시트비교()
Dim sht1 As Worksheet, sht2 As Worksheet
Dim rng1 As Range, rng2 As Range
Dim i As Integer
MsgBox ("시트1을 선택하시오")
Set sht1 = Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name)
MsgBox ("시트2을 선택하시오")
Set sht2 = Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name)
Set rng1 = sht1.UsedRange
Set rng2 = sht2.UsedRange
Dim mycell
For Each mycell In rng1
If mycell <> sht2.Cells(mycell.row, mycell.Column) Then
MsgBox ("Not matched -> " & mycell.row & "행" & mycell.Column & "열")
End If
Next mycell
MsgBox ("All data are same!!")
End Sub
---------------------------------------------------------
위와 같이 구현하는데 문제점은...
sheet A를 선택한 후 sheet B를 선택해야 하는데...
sheet B를 선택할 수 없이 루틴은 그냥 수행돼 버립니다.
어떻게 조치를 해야할 지 생각이 안 납니다.
고수님들의 조언 바랍니다.
그럼 미리 감사를..꾸벅..^^ |
|