Добавление строки в уже размерный массив

Question

В первой части моего подпункта я поместил некоторые формулы в строку, используя lastrow + 1.

.Range("B" & lastrow + 1 & ":" & "I" & lastrow + 1).Value = _
                Worksheets("Sheet1").Range("C7:J7").Value

Как объявить последнюю строку:

Dim lastrow As Long
lastrow = FindLastRow("Sheet Name")

Позже в моемкод в том же подпункте, я делаю среднее значение этого столбца, но теперь lastrow остался прежним.Но мне нужно повторить последнюю строку, потому что я добавил строку в этот набор данных.Как я могу повторить это?

Answer 1

Для этого примера я использую Лист1 - Столбец А. Перед тем, как рассчитать среднее значение, пересчитайте последнюю строку.Ниже приведен пример:

Option Explicit

Sub test()

    Dim LR As Long
    Dim Avg As Double

    With ThisWorkbook.Worksheets("Sheet1")

        LR = .Cells(.Rows.Count, "A").End(xlUp).Row

        Avg = Application.WorksheetFunction.Average(.Range("A1:A" & LR))

    End With



End Sub