Excel-VBA：仅当单元格包含值时才进行计算

Question

我的代码可以很好地计算出我想要的平均值。但现在我希望它只在引用的单元格包含值时运行计算。我完全不知道如何将条件输入我的代码。

Dim i%
Dim rng As Range
Dim last&
last = Range("A65536").End(xlUp).Row
    For i = 2 To last
        Range("F" & i).FormulaR1C1 = _ 
            "=AVERAGE(R[-4]C[-2],R[-2]C[-2],RC[-2],R[2]C[-2],R[5]C[-2],)"
    Next i
End Sub

我尝试使用 AVERAGEIF，但我也无法使用它。每当我尝试使用函数向导设置它时，该范围都会给我一个范围内的#Value。所以我不知道如何让它在 VBA 中工作。

我们将不胜感激。

*编辑 - 我只希望平均线出现在单元格中，但我想在计算之前测试单元格的值。 （悉达多，谢谢你的回答！）澄清一下：

Dim i%
Dim rng As Range
Dim last&
last = Range("A65536").End(xlUp).Row
    For i = 2 To last
     'test for all cells having values here   
        Range("F" & i).FormulaR1C1 = _ 
            "=AVERAGE(R[-4]C[-2],R[-2]C[-2],RC[-2],R[2]C[-2],R[5]C[-2],)"
    Next i
End Sub

***编辑2：为了更清楚我在寻找什么，我想要这样的东西：

Dim i%
Dim last&

last = Range("A65536").End(xlUp).Row
For i = 2 To last
    While Range("D" & i - 4).Value <> "" And Range("D" & i + 4).Value <> ""
        Range("F" & i).FormulaR1C1 = _ 
                 "AVERAGE(R[-4]C[-2],R[-2]C[-2],RC[-2],R[2]C[-2],R[5]C[-2]))"
    Wend
Next i

但是我的 while 语句给我带来了麻烦，因为当我到达代码中的那个点时，我不断收到错误消息。我也试过：

While Range("D" & i - 4 And "D" & i + 4).Value <> ""

这给了我运行时错误 13：类型不匹配。

Answer 1

如果我理解正确，那么您需要检查一个范围内的单元格数量是否等于填充值的数量。例如

Sub a()
    Dim i%
    Dim rng As Range
    Dim last&
    last = Range("A65536").End(xlUp).Row

    For i = 2 To last
        Range("F" & i).FormulaR1C1 = "=if(" & _
                     "Rows(R[-4]C[-2])+Rows(R[-2]C[-2])+Rows(RC[-2])+Rows(R[5]C[-2])<>" & _
                     "COUNTA(R[-4]C[-2],R[-2]C[-2],RC[-2],R[2]C[-2],R[5]C[-2],)-2,""Blank""," & _
                     "AVERAGE(R[-4]C[-2],R[-2]C[-2],RC[-2],R[2]C[-2],R[5]C[-2],))"
    Next i
End Sub