如何使用 VBA 动态自动填充目标？

Question

我有两个表 Table1 和 Table2。
表 1 在 C 列中有一个手动输入，用于更新该表上的其他列。
Table2 依赖于手动输入来自动填充所有的表值。

数据示例：

如何动态更新 Table2？两个表都发生了很大的变化，以至于我拥有引用每个表的最后一行的动态范围。

我有以下代码，这只是我遇到问题的一行，因为它出错了。

Sub Auto_Fill()
 
    ' Auto_Fill Macro
      
    Range("Table1[[#Headers],[U/C LEVEL]]").End(xlDown).Select
      
    If Not IsEmpty(ActiveCell.Value) Then
      
        Range("Table3[#Headers]").End(xlDown).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.AutoFill Destination:=Range(**THIS IS THE BIT I'M HAVING TROUBLE WITH**), Type:=xlFillDefault
        Range("Table3[[#Headers],[HEIGHT DIFF.]]").End(xlDown).Select
      
    End If
      
End Sub

我不知道如何完成这个：

Selection.AutoFill Destination:=Range(THIS IS THE BIT I'M HAVING TROUBLE WITH), Type:=xlFillDefault

我想在 Table1 的 C 列中找到最后一个值，如果不为空，我想找到 Table2 的最后一行，并使用当前在 Table2 中的所有公式和值自动填充 Table2 行的一行。

我尝试了大约 20 个链接。解决方案的组合似乎都不适用于我的特殊情况。

Answer 1

假设您要自动填充 Table3，请尝试...

Dim lastListRow As ListRow

With ActiveSheet.ListObjects("Table3")
    Set lastListRow = .ListRows(.ListRows.Count)
End With

With lastListRow
    .Range.AutoFill Destination:=.Range.Resize(2), Type:=xlFillDefault
End With