发布网友 发布时间:2022-04-23 07:47
共3个回答
热心网友 时间:2022-06-17 21:57
这个问题比较难处理,自定义个函数吧。我写个自定义函数countdata。图片如下:
自定义函数代码如下:
Function countdata(rag1, rag2 As Range)
Application.Volatile
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "[0-9]+"
For Each Rng In rag2
Set ar = .Execute(Rng)
For Each m In ar
If Val(m) = rag1 Then
countdata = countdata + 1
End If
Next
Next
End With
End Function
步骤:1、ALT+F11进入VBE编辑器。2、点左侧工程-VBAProject窗口的任意位置,点右键插入模块。3、然后把上面的代码复制到模块里面。4、然后回到EXCEL工作表中,输入公式:=countdata(C2,A2:A6),这个公式是根据上图的行列写的。
热心网友 时间:2022-06-17 21:57
;61; 里面的1,也是不算的吧,假设原始数据在A1:A10中,公式可为热心网友 时间:2022-06-17 21:58
这个不需要VB 一条公式也能搞定
=SUM(IF(EVALUATE("{"&A1&"}")=$D$2,EVALUATE("{"&A1&"}"),""))
需要按组合键 键入公式 ctrl+shift+enter