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

Question

我有两个 Tables Table1 & Table2.
Table1 在 C 列中有一个手动输入，它更新了 table 上的其他列。
Table2 依靠手动输入来自动填充其所有 Table 值。

数据示例：

如何动态更新 Table2？两个 table 变化如此之大以至于我有动态范围引用每个 table.

的最后一行

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

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 个链接。 None 的解决方案组合似乎适用于我的特定情况。

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

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

How to Dynamically AutoFill Destination using VBA?

excel

vba

autofill