Bạn kiểm thử theo macro sau:
Sub DongDongTheoNgay()
Dim Dat As Date, J As Long, W As Integer, Rws As Long
Dim Arr(), dRg As Range
Dat = [w1].Value
Rws = Sheet1.UsedRange.Rows.Count
Arr() = [A2:T2].Resize(Rws).Value
Set dRg = Rows(9 + Rws & ":" & Rws + 9)
For J = 1 To UBound(Arr())...