中易网

请VBA高手解析一下,这个brr(i)=0代表什么

答案:2  悬赏:0  
解决时间 2021-04-27 23:47
  • 提问者网友:斩断情丝
  • 2021-04-27 15:32
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



最佳答案
  • 二级知识专家网友:恕我颓废
  • 2021-04-27 17:05
这个很简单啊,
首先前面定义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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息