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

时间:2018-12-11 01:47:03

标签: excel vba excel-vba

在我的子文章的第一部分中,我使用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,因为我已经向该数据集添加了一行。我该如何重做?

1 个答案:

答案 0 :(得分:0)

在此示例中,我使用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