Sub tt()
arr = Range("c11:c" & [c65536].End(3).Row)
x = [j10]
Dim brr(1 To 6)
For i = 1 To 6
brr(i) = 0 '请VBA高手解析一下,这个brr(i)=0代表什么,用brr(i)=1难道不可以
Next
For i = 1 To UBound(arr) - 1
If arr(i, 1) = x Then brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1
Next
[J13].Resize(, 6) = brr
End Sub
请VBA高手解析一下,这个brr(i)=0代表什么
答案:2 悬赏:0
解决时间 2021-04-27 23:47
- 提问者网友:斩断情丝
- 2021-04-27 15:32
最佳答案
- 二级知识专家网友:恕我颓废
- 2021-04-27 17:05
这个很简单啊,
首先前面定义brr
Dim brr(1 To 6)
然后循环给brr赋值为0值
首先前面定义brr
Dim brr(1 To 6)
然后循环给brr赋值为0值
全部回答
- 1楼网友:安稳不如野
- 2021-04-27 17:35
这个是一个定义动态数组
即动态定义数组brr有一到4行,0到i列
因为动态数组只能列动态,用preserve,是在原数组的基础上增加,不会改变原数组的数据。
一般来说你的这句代码前会有一个判断
如
if xxx=xxx then
i=i+1
redim preserve brr(1 to 4,0 to i)
然后这里会写入数据到数组中如
brr(1,i)=xxx
brr(2,i)=xxx
brr(3,i)=xxx
brr(4,i)=xxx
end if
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息