[已解决]VBA数组成绩均大于等于80分为什么缺少一行了

laoau138

VBA数组成绩均大于等于80分为什么缺少一行了


Sub test()
    Dim ar, ar1(), i%, m%, k, st1, st2         'VBA数组成绩均大于等于80分为什么缺少一行了
    ar = [b4].CurrentRegion
    ReDim ar1(UBound(ar), 7)
    st1 = [b23].Value: st2 = [c23].Value
        For i = 2 To UBound(ar)
            If ar(i, 3) >= st1 And ar(i, 4) >= st2 Then
             k = k + 1
                For m = 0 To 7
                    ar1(k, m) = ar(i, m + 1)
                Next m

            End If
        Next i

    [b26].Resize(k, 8) = ar1
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-29 14:04

后面的7应该是对的，如果前面的UBound(ar)是正确的话，
就是K的初值错了，你的K是从1开始累加的，实际数组是从0开始累加的，所以最上面会空一行。
把K=K+1放到for~next循环体下面去。

跳转到最佳答案楼层

大灰狼1976

是不是这句错了：
ReDim ar1(UBound(ar), 7)
改为
ReDim ar1(1 to UBound(ar), 1 to 7)
没附件，仅推测，我也偶尔会犯这种错误。

大灰狼1976

后面的7应该是对的，如果前面的UBound(ar)是正确的话，
就是K的初值错了，你的K是从1开始累加的，实际数组是从0开始累加的，所以最上面会空一行。
把K=K+1放到for~next循环体下面去。

laoau138

大灰狼1976 发表于 2017-3-29 14:00
是不是这句错了：
ReDim ar1(UBound(ar), 7)
改为

高手就是高手，看代码就能发现错误