Chạy code VBA. Kiểm tra lại
Option Explicit
Sub XYZ()
Dim aSize(), aOrder(), res(), dic As Object, loai$, PoNo$
Dim i&, SizeRow&, j&, k&, d&, box&, dm&, sl&
Set dic = CreateObject("scripting.dictionary")
ReDim res(1 To 1000, 1 To 8) 'Ket qua 1000 dong, Neu Error nhap so lon hon
With...