excelvba统计表格中的计算数目如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3就是统计一下有几个两位数的乘

Question

excel vba统计表格中的计算数目
如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3
就是统计一下有几个两位数的乘法公式,

Answer 1

我觉得应该是：
Function Cnt(r As Range)
    Dim n%, l%
    cFor = r.Formula
    arr = Split(Replace(cFor, "=", ""), "+")
    For i = 0 To UBound(arr)
        brr = Split(arr(i), "*")
        l = 0
        For j = 0 To UBound(brr)
            If Val(brr(j)) = Int(brr(j)) Then n = n + brr(j): l = l + 1
        Next
        If l = 0 Then n = n + 1
     Next
     Cnt = n
End Function
然后,假设计算式在A1,则在需要得到结果的单元格输入
=Cnt(A1)