猫眼看球 发表于 2021-11-20 18:22:00

请教统计问题

请教统计问题。谢谢！

刘文公 发表于 2021-12-4 01:44:57

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

长牛 发表于 2021-12-8 04:31:40

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

广东球迷湖人 发表于 2022-1-7 12:26:55

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

左岸国度 发表于 2022-1-25 17:17:50

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

触不到 发表于 2022-1-30 03:51:31

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

不留尘 发表于 2022-2-26 00:34:56

请写个自定义函数，谢谢！
页: [1]
查看完整版本: 请教统计问题