在 Excel VBA 中使用动态范围自动填充表格

Question

我正在尝试使用基于日期的可变范围自动填充表格（例如，日期范围为 2018 年 6 月 10 日 - 2018 年 6 月 13 日，它从 2018 年 6 月 10 日到 6 日的最后一行自动填充13/2018)。

到目前为止，这是我的代码，在自动填充步骤中它会引发不匹配错误：

Set Table = Adspend.Worksheets("Summary").ListObjects("Spend")
Set TableCell = Table.Range.Cells(2, Table.ListColumns(1).Index)

LastRow = Table.Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

If IsEmpty(Table.Range.Cells(2, Table.ListColumns(1).Index)) = True Then
Table.Range.Cells(2, Table.ListColumns(1).Index) = 
Adspend.Worksheets("Summary").Range("B1").Value
End If


If TableCell.Value < Adspend.Worksheets("Summary").Range("C1").Value Then
        DatePeriod = Adspend.Worksheets("Summary").Range("C1").Value - 
TableCell.Value

        NewDate = LastRow + DatePeriod



        Table.Range.Cells(2, Table.ListColumns(1).Index).AutoFill Destination:=Table.Range(Cells(LastRow, Table.ListColumns(1)), Cells(NewDate, Table.ListColumns(1)))




End If

Answer 1

如果 Spend 表的第一列在 O 列中并且其下方没有任何内容，请将自动填充切换为使用 O 列中的最后一个日期值和 C1 中的整数作为停止点的数据系列。

Option Explicit

Sub Macro1()
    Dim datePeriod As Long

    With Worksheets("Summary")
        datePeriod = .Range("C1").Value

        With .Cells(.Rows.Count, .ListObjects("Spend").Range.Column).End(xlUp)
            .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
                        Date:=xlDay, Step:=1, Stop:=.Value + datePeriod
        End With
    End With
End Sub

如果您想将其转换为 ListObject 语法，这应该不难，但带有停止的 DataSeries 应该比自动填充到目标范围更容易。