在范围内向上选择一组单元格

Question

我有一个 For Next 循环，它获取一个范围内的每个单元格，选择它下面的 10 个，对这十个单元格执行计算并将结果放在下一列中。例如，它将获取单元格 A1，将 A1-A10 相加并将结果放入 B1。然后它循环到 A2，对 A2-A11 求和并将结果放入 B2。以下代码（仅摘录）可以正常工作。

我想总结而不是总结。选择单元格A20，将A20-A10相加，将结果放入B20。一直没能做到。在下面的代码中，E1 的值为 10，它是从范围内每个单元格中向下选择的单元格数。

For Each Rng In Range("LogRd1")
    Rng.Select
    Selection.Resize((Range("E1").Value), 1).Select
    Rng.Offset(, 1).Formula = ((Application.WorksheetFunction.Sum(Selection)) / ((Range          ("E1").Value + 0.0001) - (Application.WorksheetFunction.Sum(Selection))))

Next Rng

任何帮助表示赞赏。 谢谢， 授予

Answer 1

再次编辑：更强大一点

Dim BLOCK_SIZE as Long
Dim Rng As Range, r as Range, s As Variant

BLOCK_SIZE = Range("E1").Value 

For Each Rng In Range("LogRd1")
If Rng.Row >= BLOCK_SIZE Then
    Set r = Rng.Offset(-(BLOCK_SIZE-1), 0).Resize(BLOCK_SIZE, 1)
    s = Application.Sum(r) 
    If Not IsError(s) Then
        Rng.Offset(0, 1).Value = s / ((BLOCK_SIZE + 0.0001) - s)
    Else
        Rng.Offset(0, 1).Value = "Sum Error!"
    End If
End If 'can offset to at least BLOCK_SIZE above this cell
Next Rng