当有文本时，为Application.Average键入不匹配

Question

我在A栏中有一堆数据。有些是文字，有些是数字。 Application.Average因文本而产生类型不匹配。解决这个问题的最佳方法是什么？我可以将所有数值写入数组然后平均数组，但这似乎很痛苦。

Answer 1

如果col A 混合了数字和文字，则以下内容不会产生错误：

Sub dural()
    Dim R As Range
    Set R = Range("A:A")
    MsgBox Application.WorksheetFunction.Average(R)
End Sub

除非其中一个单元格出错。