Kiểm tra lại
Sub xyz()
Dim arr(), aMa(), aCol, a, res$(), res2(), dic As Object, key$
Dim sR&, srMa&, i&, r&, j&
With Sheets("Data")
arr = .Range("A2", .Range("P" & Rows.Count).End(xlUp)).Value
End With
With Sheets("Shopee")
aMa = .Range("A2", .Range("A" &...