Dùng Dic nhằm giảm số lần duyệt các giá trị nhằm tăng tốc xử lý khi dữ liệu lớn. Tương tự cách dùng cột phụ, dic(a(i, 1)) = Array(1, 0, 0, 0) dùng 4 "cột phụ" (có thể chỉ cần 2), cách xử lý khá phức tạp, xem ghi chú trong code
Sub XYZ()
Dim a(), b, res(), dic As Object, key
Dim sRow&, i&...