Thêm phiếu xuất . . .
Sub ABC()
Dim aTemp(), aVT(), aPX(), arr, res(), res2(), dic As Object
Dim sRow&, sR&, i&, c&, r&
Set dic = CreateObject("scripting.dictionary")
With Sheets("Input_TBi")
aVT = .Range("C17", .Range("C999999").End(xlUp)).Value
aPX = .Range("AX1"...