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

但我真的不希望日期从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

只需确保将单元格格式化为日期;）

VBA宏填充日期到达今天的日期

2 个答案: