VBAマクロで今日までの日付を入力する

Question

隔週、最後のレポートの日付を埋め込むレポートを更新する必要があります。私は最後の実行レポートと現在の日付で停止間の日付を埋めるマクロを取得しようとしています。私は現在、この持っている：

Sub IncreaseDate() 

Dim FirstDate As Date 
Dim myDate As Date 
Dim row As Long 

FirstDate = range("A1").value 

NextDate = FirstDate 

row = 1 

Do Until myDate = Date 
    myDate = myDate + 1 
    range("A" & row).value = myDate 
    row = row + 1 
Loop 
End Sub 

をしかし、私は本当に日付が1つの速いステップでそれを行うには1900

Answer 1

MyDate = FirstDate 

row = 1 

Do Until myDate = Date 
    myDate = myDate + 1 
    range("A" & row).value = myDate 
    row = row + 1 
Loop 

Answer 2

で起動する必要はありません：

Sub test() 
    Dim a As Long 
    a = Range("A1").Value 
    Range("A2:A" & CLng(Date - a + 1)).Value = Evaluate("Row(" & a + 1 & ":" & CLng(Date) & ")") 
End Sub 

はただ作りますセルが日付としてフォーマットされていることを確認してください）