Sub SumColumnDynamic()
Dim RngSumQ, RngSumQS, RngSumQL, SumRange As Range
Set RngSumQ = Cells(Rows.Count, "A").End(xlUp).Offset(, 2)
Set RngSumQS = Cells.FIND(What:="Quantity").Offset(1, 0)
Set RngSumQL = Cells(Rows.Count, "A").End(xlUp).Offset(-1, 2)
Set myRange = Range(RngSumQS, RngSumQL)
Range("RngSumQL") = WorksheetFunction.Sum(SumRange)
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…