Sub abc()
Dim i As Long
Dim lr As Long
Dim lr1 As Long
Dim vaData As Variant
Dim colUnique As Collection
Dim aOutput() As Variant
Dim j As Long
Dim aa As Range
Dim bb As Range
Dim cc As Range
Dim dd As Range
Dim ee As Range
Dim Ngaydau As Date, Ngaycuoi As Date
lr1 = Sheet1.Range("A" &...