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保持不变。但是我需要重做lastrow，因为我已经向该数据集添加了一行。我该如何重做？

Answer 1

在此示例中，我使用Sheet1-A列。在计算平均值之前，请重新计算最后一行。参见下面的示例：

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

在已维度化的数组中添加一行

1 个答案: