VBA автозаполнение последней строки для двух столбцов

Question

Я хотел бы автоматически заполнить формулы в столбцах 4 и 5, исходя из предположения, что я не знаю, в какой строке содержится последний фрагмент данных.

** понял, что у меня возник вопросредактировать.TIA

Answer 1

Две части к этому:

1. получение ссылки на формулы для копирования и области для заполнения
2. копирование формул

См.встроенные комментарии

Sub Demo()
    Dim rFormulaToCopy As Range
    Dim FormulaColumn As Long, NumOfFormula As Long
    Dim DataColumn As Long

    '~~~ update to match your sheet layout
    FormulaColumn = 4
    NumOfFormula = 2
    DataColumn = 1

    With ActiveSheet '<~~~ specify the required sheet
        ' Reference the last row of Formula
        Set rFormulaToCopy = .Cells(.Rows.Count, FormulaColumn).End(xlUp).Resize(, NumOfFormula)
        ' Reference the missing formula range, including the last Formula row.
        ' Assign from/to the Formula property to copy formulas (Excel will update relative references)
        rFormulaToCopy.Resize(.Cells(.Rows.Count, DataColumn).End(xlUp).Row - rFormulaToCopy.Row + 1).Formula = rFormulaToCopy.Formula
    End With
End Sub