Public Sub TenBai()
Dim Dic As Object, I As Long, J As Long, Arr(), Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("PPCT")
Arr = .Range(.[A2], .[A65000].End(xlUp)).Resize(, 5).Value
End With
For I = 1 To UBound(Arr, 1)
Tem = UCase(Arr(I, 1) & "#" & Arr(I, 5)) & "$"
If Tem <> "#$" Then
Dic.Add Tem, Arr(I, 4)
End If
Next I
''---------------------
With Sheets("TC")
Arr = .Range(.[A3], .[A65000].End(xlUp)).Resize(, 3).Value
End With
For I = 1 To UBound(Arr, 1)
Tem = UCase(Arr(I, 1) & "#" & Arr(I, 3)) & "$1"
If Tem <> "#$1" Then
Dic.Add Tem, Arr(I, 2)
End If
Next I
''---------------------
With Sheets("IN1")
Arr = .Range(.[D6], .[D65000].End(xlUp)).Offset(, 1).Resize(, 9).Value
For I = 1 To UBound(Arr, 1)
For J = 1 To 6 Step 5
Tem = UCase(Arr(I, J + 2) & "#" & Arr(I, J)) & "$" & Arr(I, J + 3)
Arr(I, J + 1) = Dic.Item(Tem)
Next J
Next I
.[E6].Resize(I - 1, 9).Value = Arr
End With
Set Dic = Nothing
End Sub
