本帖最后由 xxjjdd0000 于 2013-10-2 12:24 编辑
- ReDim Arr3(1 To UBound(Arr2), 1 To 12)
- For x = 1 To UBound(Arr2)
- For z = 3 To UBound(Jrr)
- If Arr2(x, 4) = Jrr(z, 2) And Brr = Arr2(x, 1) Then
- Grr = Array(Arr2(x, 1), Arr2(x, 2), Arr2(x, 3), Arr2(x, 4), Arr2(x, 5), Arr2(x, 6), Arr2(x, 7), Arr2(x, 8), Arr2(x, 9), Arr2(x, 10), Arr2(x, 11), Jrr(z, 11))
- f = f + 1
- For y = 1 To 12
- Arr3(f, y) = Grr(y - 1)
- Next
- End If
- Next
- Next
复制代码 ARR2有3组数,但f=f+1只计数到2,最后1组没有进入到Arr3数组里面
本帖最后由 我心飞翔410 于 2013-10-2 11:09 编辑
ARR2有3组数 你这个数组贴上来你看看阿瑞人是不是那个if使范围减小 才循环了 两次
|