Sub chuyendulieu()
Dim arr, arr1, i As Long, lr As Long, a As Long, b As Long, dic As Object, lr1 As Long
Set dic = CreateObject("scripting.dictionary")
With Sheets("ngang")
lr = .Range("B" & Rows.Count).End(xlUp).Row
If lr < 4 Then Exit Sub
.Range("c4:N" & lr).ClearContents
arr = .Range("B3:N" & lr).Value
For i = 2 To UBound(arr, 1)
dic.Item(arr(i, 1)) = i
Next i
For i = 2 To UBound(arr, 2)
dic.Item(arr(1, i)) = i
Next i
End With
With Sheets("doc")
lr1 = .Range("B" & Rows.Count).End(xlUp).Row
arr1 = .Range("b3:D" & lr1).Value
For i = 1 To UBound(arr1, 1)
a = dic.Item(arr1(i, 1))
If a Then
b = dic.Item(arr1(i, 3))
If b Then
arr(a, b) = arr(a, b) + arr1(i, 2)
End If
End If
Next i
End With
With Sheets("ngang")
.Range("B3:N" & lr).Value = arr
End With
End Sub
