VBA：将公式拖到最新的行

Question

我有一张表，我每天都会在普通数据中复制（同时删除旧数据）。复制的数据位于A：E列，而公式位于F列。F列中的公式基于A列中的数据。

由于复制的数据量每天都在变化，我需要一个VBA公式，它会自动调整到我在给定日期粘贴的行数。

有什么建议？

谢谢，Viktor

Answer 1

这是我之前在工作表上使用过的。当您对A1：E10（或您在那里设置的任何范围）进行更改时，它将下拉您的公式

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Me.Range("A1:E10")) Is Nothing Then
        Range("F2").AutoFill Destination:=Me.Range("TableName[columnName]")
    End If
End Sub

将其格式化为表格，然后使用列名称，比确保您拥有全部范围更容易。尽管您也可以执行此类操作。

Private Sub Worksheet_Change(ByVal Target As Range)
    Set r = Range("F2:F" + CStr(Cells(Rows.Count, 1).End(xlUp).Row()))

    If Not Application.Intersect(Target, Me.Range("A1:E10")) Is Nothing Then
        Range("F2").AutoFill Destination:=r
    End If
End Sub