2016-07-27 2 views
0

excel, sheet1 및 sheet2의 두 시트를 동일한 Excel 책에서 비교하고 sheet3의 두 시트 사이의 모든 차이점을 표시하는 매크로를 작성하는 데 도움이 필요합니다. 내 머리글은 항상 sheet1과 sheet2에서 동일하지만 두 시트의 정보가 다를 수 있습니다. 나는 모두 시트에있을 것입니다 제목 포함 : 출생 급여 번호 성 이름 연봉 회원 그룹두 세트의 데이터를 일치시키는 매크로

ID 번호 날짜

나는이 고민하고 있습니다. 그러므로 도움의 손길을 넓혀주세요. 고맙습니다.

+2

도움이되기를 바랍니다 문제 해결을 돕기 위해 여기에 나와 있습니다. 오히려 완전히 응답하고 코드를 작성합니다. 이 작업을하기 위해 어떤 노력을 기울 였는지 알려주십시오. – Nehal

+0

'match' 또는'countif' 함수를 사용해보십시오. 이를 위해서는 VBA가 필요 없습니다. 또는이 작업을 수행하는 플러그인을 구입할 수 있습니다. (자세한 내용 : [Google] (https://www.google.com)) – vacip

답변

0

시트 1 행 및 'm'의 개수가 시트 2 행 각각 시트 7 표제의 개수가 'I'가된다 가정하면, 다음이 불일치 여기

Sheet3에

등록 된 용액은 Sheet1에있는 ID 번호는 시트 2의 ID 번호와 비교하고있는 경우, 그들은 비교와 불일치는 제목의 같은 순서로 Sheet3에보고됩니다

Sub Mismatch() 

Dim temp3 As Integer 
temp3 = 1 

Dim array1(7), array2(7), array3(7) As Variant 

For i = 2 To 6 
Worksheets("Sheet1").Activate 
For temp = 1 To 7 
    array1(temp) = Cells(i, temp).Value 
Next temp 

Worksheets("Sheet2").Activate 

For m = 2 To 6 
    If Cells(m, 1).Value = array1(1) Then 
     For n = 1 To 7 
      For temp2 = 1 To 7 
       array2(temp2) = Cells(m, temp2).Value 
      Next temp2 
      Worksheets("Sheet3").Activate 
      temp3 = temp3 + 1 

      Cells(temp3, 1).Value = array1(1) 

      For temp4 = 2 To 7 
       If array1(temp4) <> array2(temp4) Then 
        Cells(temp3, temp4).Value = "mismatch" 
       End If 
      Next temp4 

      GoTo JumpToHere 

     Next n 
    End If 
Next m 
JumpToHere: 
Next i 

End Sub 

나는 이것이 우리는

관련 문제