Skip to content

Instantly share code, notes, and snippets.

Created May 9, 2018
What would you like to do?
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
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment