请教统计问题

猫眼看球

请教统计问题。谢谢！
统计.rar (15.63 KB, 下载次数: 117)

2021-11-20 18:22 上传

点击文件名下载附件
统计.rar

刘文公

顶~~~~~~~~~~~~~~~~~~~~~~~

长牛

后面是模拟的结果？是个数？

广东球迷湖人

Sub kkk()
Dim rng As Range, reg As Object, arr(1 To 9999, 1 To 6)
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "\d+"
Set rngs = Range("v9,y9,ab9,ad9,af9,ag9")
n = 0
For Each rng In rngs
  Set m = reg.Execute(rng)
  n = n + 1
  arr(1, n) = m.Count
  For i = 1 To m.Count
  arr(i + 1, n) = m(i - 1)
  Next
Next
Range("al1:aq9999").Value = arr
End Sub

左岸国度

后面是模拟的结果，就是统计后的个数

触不到

您这不是自定义函数，但还是谢谢。

不留尘

请写个自定义函数，谢谢！