Nhờ a/c xem dùm đoạn code bị sai ở đâu mà dữ liệu ko gắn vào sheet11 đầy đủ.
Sub rep()
Dim i As Long, j As Long, K As Long
Dim K1 As Long
Dim ArrNguon()
Dim ArrDich()
Dim Arr_MH()
Dim Dongcuoi As Long
Dim Dic_MH As Object
Dongcuoi = Sheet10.Range("e60000").End(xlUp).Row
ArrNguon =...