Kết quả ơ sheet1
Option Explicit
Sub XYZ()
Dim arr(), res(), a(), b(), c(), d(), aCol
Dim sh As Worksheet, rng As Range, dic As Object
Dim sRow&, N&, i&, r&, k&, ik&, j&, loca$, key$, ngay&
Set dic = CreateObject("scripting.dictionary")
Set sh = Sheets("Sheet1")
i = Range("A" &...