Question

我试图按周自动填充一个单元格。例如A1 = 10月7日 B1 = 17-July我想自动填充C1和C1仅等于24-July。我的目标是让它变得动态，因为我每周都会使用它。我的代码下面自动填充列中的日期。谢谢，贝卡。

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，而不是自动填充。

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

按周自动填写日期

3 个答案: