Vba 应用程序的类型不匹配。存在文本时为平均值

我在a列有一堆数据，一些是文本，一些是数字。Application.Average由于文本而导致类型不匹配。最好的办法是什么？我可以将所有数值写入一个数组，然后对数组求平均值，但这似乎很痛苦。

如果cola混合了数字和文本，则以下内容不应产生错误：

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

---

除非其中一个单元格中存在错误。

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

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

---

除非其中一个单元格中存在错误。

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

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

---

除非其中一个单元格中存在错误。

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

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

除非其中一个单元格中有错误