excel - 平均如果大于零 vba

Question

我正在尝试对一列进行平均，但前提是该值大于零。然后我希望它将信息放入该行的下一个空白单元格中。

下面的代码作为一个简单的平均值工作，但我希望它从上面的单元格中排除任何零值。

With Range("D2")
    .End(xlDown)(2, 1) = _
    "=AVERAGE(" & .Address & ":" & .End(xlDown).Address & ")"
End With

我尝试使用以下代码使其看起来好像单元格地址大于零。但它一直给我调试错误？

With Range("D2")
    .End(xlDown)(2, 1) = _
    "=AVERAGEIF(" & .Address & ":" & .End(xlDown).Address & "," & Cell.Address & " > 0," & .Address & ":" & .End(xlDown).Address & ")"
End With

任何帮助都会很棒。

谢谢艾尔

Answer 1

您的公式语法错误。

你需要创建一个像这样的公式

=AVERAGEIF(D2:Dxx, ">0")

所以用这个

With Range("D2")
    .End(xlDown)(2, 1) = _
    "=AVERAGEIF(" & .Address & ":" & .End(xlDown).Address & ","">0"")"
End With