Question

有没有办法按周填写一栏，包括周末？例如：

A2 = 12/04/2015
  A3 = 19/04/2015
  A4 = 26/04/2015 ....

我目前的代码如下：

Sub FillDates()
    With Sheet1.Range("A2")
        .Value = DateSerial(2015, 4, 12)
        .AutoFill .Resize(1102, 1), xlFillDays
    End With
End Sub

我已经尝试过平日，月份和个人日的代码，但这并不能满足我的需求，有没有办法在每周日期的列中填充每个相应的单元格？

Answer 1

如果您将星期日的日期放在A2以及下一个星期日的日期A3，然后选择A2:A3并填写，那么只有星期日和＃39; s日期已填满，因为星期日之间有7天的差异，默认填充行为将填充所选单元格的差异系列。

Sub FillDates()
 With Sheet1.Range("A2")
        .Value = DateSerial(2015, 4, 12)
        .Offset(1, 0).Value = .Value + 7
        .Resize(2, 1).AutoFill Destination:=.Resize(1102, 1)
 End With
End Sub

按周填写日期？

1 个答案: