我已经填充了一个包含五个值的数组。这些值是从电子表格中其他位置的单元格中提取的。如何找到所有非零值的平均值? 我尝试了for-next循环,但是没有其他条件语句就不能跳过零值。我假设有一个专门的命令。提前谢谢!
Dim varIncome as variant
varIncome = Application.Transpose(Range("B3:B7").Value)
答案 0 :(得分:0)
试试这个(注意:我没有使用 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