VBA解析数组第二种方法看不懂

laoau138 · 发表于 2017-5-30 17:32

本帖最后由 laoau138 于 2017-6-1 09:05 编辑

VBA解析数组第二种方法看不懂

Sub 解释第二种方法完全看不懂() '解释第二种方法完全看不懂
Dim br(1 To 2, 1 To 33)
crr = Range("j10:k10")
rw = [a11].End(4).Row
cr = Range("c11:h" & rw)
For k = 1 To UBound(crr, 2)
br(2, crr(1, k)) = crr(1, k)
Next
For i = 1 To UBound(cr)
n = 0
If jh = 1 Then
      For m = 1 To UBound(cr, 2)
         br(1, cr(i, m)) = br(1, cr(i, m)) + 1
      Next
      jh = 0
End If
For j = 1 To UBound(cr, 2)
      If br(2, cr(i, j)) = cr(i, j) Then
         n = n + 1
      End If
Next
If n = UBound(crr, 2) Then jh = 1
Next
Range("j12:ap12").ClearContents
[j12].Resize(1, 33) = br
End Sub

laoau138 · 发表于 2017-5-31 14:03

还没有人来做

france723 · 发表于 2017-6-1 17:04

本帖最后由 france723 于 2017-6-1 17:15 编辑

laoau138 发表于 2017-5-31 14:03
还没有人来做

这个程序是这样的, 原始数据写入数组cr. 然后进入我标记的Step1,对于每一行数据, 逐个和crr每个数据比对( crr就是你要找的数据 ). 每当满足一个数据一致, n的值就增加一. (对于每一行数据逐个比对, 为了防止重复, 所以br定位比对).
然后进入我标记的Step2, 当n的值等于crr里面元素的个数( 要找的数据全部找到), jh赋值 1.
然后进入我标记的Step3, 当jh的值等于1, 出现的次数写入数组br. (次数累加)
最后Step4, 输出数组.

Sub AAA()
Dim br(1 To 2, 1 To 33)
crr = Range("j10:k10")
rw = [a11].End(4).Row
cr = Range("c11:h" & rw)
For k = 1 To UBound(crr, 2)
br(2, crr(1, k)) = crr(1, k)
Next
For i = 1 To UBound(cr)
n = 0
If jh = 1 Then 'step 3
For m = 1 To UBound(cr, 2)
br(1, cr(i, m)) = br(1, cr(i, m)) + 1
Next
jh = 0
End If
For j = 1 To UBound(cr, 2) 'step 1
If br(2, cr(i, j)) = cr(i, j) Then
n = n + 1
End If
Next
If n = UBound(crr, 2) Then jh = 1 'step 2
Next
Range("j12:ap12").ClearContents
[j12].Resize(1, 33) = br 'step 4
End Sub

复制代码

laoau138 · 发表于 2017-6-1 18:58

france723 发表于 2017-6-1 17:04
这个程序是这样的, 原始数据写入数组cr. 然后进入我标记的Step1,对于每一行数据, 逐个和crr每个数据比对( ...

依然不懂了，太笨了菜鸟一个

For k = 1 To UBound(crr, 2)
br(2, crr(1, k)) = crr(1, k)
Next

请解析第二句，最好整段代码一句句解析

france723 · 发表于 2017-6-1 20:48

laoau138 发表于 2017-6-1 18:58
依然不懂了，太笨了菜鸟一个

把数组crr的元素逐个写入二维数组br的第二行.
写入br第二行的什么位置? crr的元素是多少,就写入第几列.
比如crr有一个元素是3, 写入br第二行第3列.

laoau138 · 发表于 2017-6-2 08:23

france723 发表于 2017-6-1 20:48
把数组crr的元素逐个写入二维数组br的第二行.
写入br第二行的什么位置? crr的元素是多少,就写入第几列.
...

为什么要写入第二行

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

VBA解析数组第二种方法看不懂

评分