Dữ liệu đã được sort theo Sku item và Storage Location
Kiểm tra lại . . .
Sub XYZ()
Dim a, aa(), b(), res(), sku, SL#
Dim sRow&, srA&, srB&, sCol&, i&, r&, k&, fr&
With Sheets("O_Stock")
aa = .Range("A2:H" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Value
End With
With...