Minhdang.bas

Sub MinhDang()
Dim StartDate As Date, TMP() As Date, Totalday As Long, I As Long
With Sheet1
  StartDate = CDate(.Range("A1").Value)'Ngày bắt đầu tính từ ô A1
  Totalday = CLng(.Range("B1").Value)' Số ngày cần điền
  .Range("C1:C1048576").ClearContents 'Xóa dữ liệu cột C
  For I = 1 To Totalday ' Vòng lăọ chạy từ 1 tới tổng số ngày
  .Range("C" & I) = StartDate + I - 1 '' Điền dữ liệu vào cột C
     Next
End With
End Sub