查找数组

Question

我已经填充了一个包含五个值的数组。这些值是从电子表格中其他位置的单元格中提取的。如何找到所有非零值的平均值？ 我尝试了for-next循环，但是没有其他条件语句就不能跳过零值。我假设有一个专门的命令。提前谢谢！

Dim varIncome as variant
varIncome = Application.Transpose(Range("B3:B7").Value)

Answer 1

试试这个（注意：我没有使用 varIncome 变量，因为它似乎没有必要才能得到结果）：< / p>

Sub avgNonZeroNumbers()
'Declare:
Dim rng As Range

'Initialize:
Set rng = Sheet3.Range("B3:B7") 'Change Sheet3 to your actual sheet's code name

'   Print result to the Immediate window
    Debug.Print WorksheetFunction.AverageIf(rng, "<>0")
End Sub