化繁为简，求VBA代码，万分感谢！

q563262982 · 发表于 2019-9-5 16:56

本帖最后由 q563262982 于 2019-9-5 23:33 编辑

表格有两组模拟数据，A组B组，求对应的重复次数。
万分感谢，详见附件。

q563262982 · 发表于 2019-9-5 19:01

怎么没有回复呢？

dongjuwen · 发表于 2019-9-5 21:41

估计是没有看懂你的需求

opel-wong · 发表于 2019-9-5 22:07

q563262982 发表于 2019-9-5 19:01
怎么没有回复呢？

下载了附件，我也没有看懂，

半百 · 发表于 2019-9-5 22:07

Sub TEST()
A = Array(0, 0, 0, 0, 0)
B = A
ARR = [A3:A17]
BRR = [B3:B8]
For I = 1 To UBound(ARR) - UBound(BRR) + 1
For J = 1 To UBound(BRR)
      For K = 1 To Len(ARR(I + J - 1, 1))
         For L = 1 To Len(BRR(J, 1))
            If Mid(BRR(J, 1), L, 1) = Mid(ARR(I + J - 1, 1), K, 1) Then N = N + 1
         Next
      Next
      B(N) = B(N) + 1
      N = 0
Next
M = M + 1
Cells(M + 2, 3).Resize(1, 5) = B
B = A
Next
End Sub

q563262982 · 发表于 2019-9-6 05:48

半百发表于 2019-9-5 22:07
Sub TEST()
A = Array(0, 0, 0, 0, 0)
B = A

有一个问题，当数据量大的时候出现，我现在A6000,B200多会出现，每个单元格3-5位数：下标题越界，错误9.

		自动登录	找回密码
密码			免费注册

[求助] 化繁为简，求VBA代码，万分感谢！

评分

最新热点 /1