如何隔列按行查找符合指定数字组合的后一个数字并统计个数？

作者：绿色风分类：时间：2022-08-17 浏览：150

楼主
wjc2090742

Q：如何隔列按行查找符合指定数字组合的后一个数字并统计个数？如下2图，上图为某个数据库导出的大量数字数据，要求在其中隔列按行查找指定的数字组合，如下图中33559，找到后返回指定组合后的数，并统计个数，如何实现？

A：代码如下：

Sub text()
Dim str$, di As Object, reg As Object, i%, m%, n%
Set di = CreateObject("scripting.dictionary")
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.ignorecase = True
.Pattern = "(3.3.5.5.9.)(.)"
End With
With Sheets("数据库")
m = .Range("a3").CurrentRegion.Columns.Count
n = .Cells(.Rows.Count, 1).End(3).Row
For i = 3 To n
str = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(.Cells(i, 1).Resize(1, m))), "")
For Each ma In reg.Execute(str)
di(ma.submatches(1)) = di(ma.submatches(1)) + 1
Next
Next
End With
ar = di.keys: str = ""
For i = 0 To UBound(ar)
str = ar(i) & "共出现" & di(ar(i)) & "次" & vbTab
Next
MsgBox str
Set di = Nothing: Set reg = Nothing
End Sub

该帖已经同步到 wjc2090742的微博

如何隔列按行查找符合指定数字组合的后一个数字并统计个数？.rar

2楼
JOYARK1958

謝謝提供學習下載中

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表