计算单元格范围内的数字数量

我正在试图在Excel VBA中查找一个公式，它将计算单元格范围内的数字数量。 我已经尝试过一个公式，但它只计算单个单元格内的数字数量。 谁能帮我这个？

=IF(A1="",0,LEN(A1)-LEN(SUBSTITUTE(A1," ",""))+1) 

Answer 1

将此代码粘贴到模块中

 Function GetNumbCount(Rng As Range) As Long Dim aCell As Range Dim MYAr As Variant Dim n As Long, i As Long For Each aCell In Rng If InStr(1, aCell.Value, " ") Then MYAr = Split(aCell.Value, " ") For i = LBound(MYAr) To UBound(MYAr) If IsNumeric(Trim(MYAr(i))) Then n = n + 1 Next i Else If IsNumeric(Trim(aCell.Value)) Then n = n + 1 End If Next GetNumbCount = n End Function 

然后在工作表中使用它

句法

GetNumbCount（范围）

截图

Answer 2

无法理解需要什么以及为什么，但是要将范围A1:B2中的给定公式的结果相加，可以使用如下所示的数组公式：

{=SUM(IF(A1:B2="",0,LEN(A1:B2)-LEN(SUBSTITUTE(A1:B2," ",""))+1))}

使用Ctrl + Shift + Enter将公式input为数组1