chưa có sắp xếp được từ lớn đến bé
Sub TONG()
Dim sarr, tam, tam1 As Variant, cd(), tl(), kq(), i, j, k As Long, dic As Object
er = [i60000].End(3).Row
sarr = [i11].Resize(er, 10).Value
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(sarr)
If...