Tham khảo code dưới đây:
Trân trọng cảm ơn anh @HieuCD đã gợi ý một cách làm khác ở bài #10
Sub TimKiem3333()
Dim arr(), KQ(), Key
Dim i&, j&, Lr&, t&, m&, n&, R&
Dim DicN As Object
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Set DicN = CreateObject("Scripting.Dictionary")...