按周自动填充日期

Question

我正在尝试每周自动填充右侧的一个单元格。例如A1 =10-7月

B1 =17-7月我只想自动填充C1和C1，使其等于24-7月。我的目标是让它动态化，因为我每周都会用到它。我下面的代码是一天一列自动填充的。谢谢，贝卡。

Sub Autofill()

Dim LR As Long

LR = Range("ZZ1").End(xlToLeft).Column

Range("A1").Autofill Destination:=Range("A1:A" & LR)

End Sub

Answer 1

你想要的是DataSeries，而不是AutoFill。

Sub Autofill()

    Dim LR As Long

    LR = Range("ZZ1").End(xlToLeft).Column
    cells(1, "A") = date(2018, 7, 10)
    Range(cells(1, "A"), cells(1, lr)).DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, Step:=7, Trend:=False

End Sub

Answer 2

对不起，到底是什么限制了您在B1中使用一个简单的公式：=A1+7？

Answer 3

如果您只想填充一个单元格，那么AutoFill不是合适的工具。另外，用内置方法来调用你的函数也不是一个好主意。

请注意，这是在ActiveSheet上隐式工作的(您可能希望更具体一些)

尝尝这个

Sub MyAutofill()
    Dim LastFilledCell As Range

    Set LastFilledCell = Cells(1, Columns.Count).End(xlToLeft)
    LastFilledCell.Offset(0, 1) = LastFilledCell.Value + 7
End Sub