시트 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
나는 이것이 우리는
도움이되기를 바랍니다 문제 해결을 돕기 위해 여기에 나와 있습니다. 오히려 완전히 응답하고 코드를 작성합니다. 이 작업을하기 위해 어떤 노력을 기울 였는지 알려주십시오. – Nehal
'match' 또는'countif' 함수를 사용해보십시오. 이를 위해서는 VBA가 필요 없습니다. 또는이 작업을 수행하는 플러그인을 구입할 수 있습니다. (자세한 내용 : [Google] (https://www.google.com)) – vacip