当范围包含空单元格或带有文本的单元格时，Worksheetfunction.average 返回错误

Question

我正在处理可以包含数字和文本（或空单元格）的小范围（只有一列）。 worksheetfunction.average 的描述说“参数可以是数字或名称、数组或包含数字的引用。”和“如果数组或引用参数包含文本、逻辑值或空单元格，则这些值将被忽略。”它还说“不计算空单元格，但计算零值”。

然而，

With Sh 
SlpStdBlkCorr_Sh.Range("T2") = WorksheetFunction.Average(.Range(RawPb208Range)) 
End with

引发“无法获取工作表函数类的平均属性”错误。

这行代码被重复使用，所以所有变量都设置得很好，只有当范围有空单元格或有文本的单元格时才会出现这个错误。

.average 不应该忽略这些包含非数字内容的单元格吗？

我已经尝试了Paul Aford 的解决方案，但问题是当我在计算一些东西时，我可以创建一些怪物，只是将变量等于 0 (SlpStdBlkCorr_Sh.Range("T2")=0) 或 1 (SlpStdBlkCorr_Sh.Range("T2")=1)。

想法？

Answer 1

在我的测试中，只有当范围包含 only 非数字值和/或空白单元格时才会出错。这与工作表中AVERAGE 函数的行为相匹配。例如，如果您使用的公式包含=AVERAGE(A1:A10)，并且这些单元格都是非数字或空白，它将返回“#DIV/0”。

这是有道理的，因为没有数字就没有什么可除的，所以分母为零。

这是一个可用于测试的工作表选择更改事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Count function returns cells with numeric values    
If WorksheetFunction.Count(Selection) > 0 Then
    Debug.Print WorksheetFunction.Average(Selection)
Else
    Debug.Print "Nothing to Average"
End If
End Sub

请注意，如果区域中的一个或多个单元格包含返回错误的公式，例如#N/A，您将看到相同的错误消息。