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