|
Sub 对比()
Dim i, k, m, s, t, irow, irow1
Dim arr, brr, crr
irow = Sheets("法务报表").[a65536].End(xlUp).Row
arr = Sheets("法务报表").Range("a1:f" & irow)
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
d(arr(i, 2)) = arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6)
Next
irow1 = Sheets("人事报表").[a65536].End(xlUp).Row
brr = Sheets("人事报表").Range("a1:I" & irow)
ReDim crr(1 To irow1 - 1, 1 To 6)
For k = 2 To irow1
For m = 1 To 4
crr(k - 1, m) = Split(d(brr(k, 2)), ",")(m - 1)
Next
s = CStr(crr(k - 1, 3))
t = CStr(crr(k - 1, 4))
crr(k - 1, 6) = crr(k - 1, 1) & crr(k - 1, 2) & s & t
If crr(k - 1, 6) = brr(k, 9) Then
crr(k - 1, 5) = "相符"
Else
crr(k - 1, 5) = "不相符"
End If
Next
Sheets("人事报表").[c2].Resize(UBound(crr), 6) = crr
MsgBox "ok"
End Sub |
|