Một cách dùng Dic đề phòng dữ liệu nằm lộn xộn
Public Sub Gom()
Dim Vung, I, Kq, Dic, K, kK
Vung = Range([A2], [A50000].End(xlUp)).Resize(, 2)
Set Dic = CreateObject("scripting.dictionary")
ReDim Kq(1 To UBound(Vung), 1 To 2)
For I = 1 To UBound(Vung)
If Not...