excel vba统计表格中的计算数目如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3就是统计一下有几个两位数的乘
excel vba统计表格中的计算数目如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3就是统计一下有几个两位数的乘
excel vba统计表格中的计算数目
如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3
就是统计一下有几个两位数的乘法公式,
excel vba统计表格中的计算数目如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3就是统计一下有几个两位数的乘
我觉得应该是:
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)