[已解决]把一维数组放到有规律的方阵内出现"下标越界"的问题

markang

这个类似问题我白天问过,但现在又出现了新的问题
要达到的效果:将sheet2中 Range("a2:a16")的内容放到sheet1的range("b2:H42"),要求每行放3个元素,每个元素间隔3个单位;当放第4个元素时下一行与上一行间隔10个单位,再每行放3个单位,依次类推:
表格中range("b2:H42")是想达到的效果,下面代码错在哪里呢? 把一维数组放到有规律的方正内出现下标越界的问题.rar (13.91 KB, 下载次数: 3)

2015-6-20 23:21 上传

点击文件名下载附件
Sub tt()

Dim arr, y, n, brr
arr = Application.Transpose(Sheet2.Range("a2:a16"))
ReDim brr(1 To UBound(arr), 1 To 7)
n = 1
k = -2
For y = 1 To UBound(arr)
k = k + 3
If k > 7 Then k = 1: n = n + 10
brr(n, k) = arr(y)
Next y
Range("b2").Resize(n, 7) = brr

End Sub

最佳答案

月排行榜 / 总排行榜

cbg2008

2015-6-21 19:06

Sub tt()
    On Error GoTo ErrorHandle   '错误跳转语句
    Dim arr, y, n, brr
    arr = Application.Transpose(Sheet2.Range("a2:a16"))
    '错误原因是brr数组size不够
    ReDim brr(1 To WorksheetFunction.RoundUp(UBound(arr) / 3, 0) * 10 - 9, 1 To 7)
    n = 1
    k = -2
    For y = 1 To UBound(arr)
        k = k + 3
        If k > 7 Then k = 1: n = n + 10
        brr(n, k) = arr(y)
    Next y
    Range("b2").Resize(n, 7) = brr
EndSub: '此处表示正常结束，退出SUB
    Exit Sub
ErrorHandle:
    Stop '出错时会跳转到这里，可以查看错误时变量值和状态
End Sub
WorksheetFunction.RoundUp(UBound(arr) / 3, 0) * 10 - 9这部分公式是因为目标区域是如果只有一行，那行高是1，两行就是11，三行就是21，以此类推，所以要这样计算。

跳转到最佳答案楼层

cbg2008

Sub tt()
    On Error GoTo ErrorHandle   '错误跳转语句
    Dim arr, y, n, brr
    arr = Application.Transpose(Sheet2.Range("a2:a16"))
    '错误原因是brr数组size不够
    ReDim brr(1 To WorksheetFunction.RoundUp(UBound(arr) / 3, 0) * 10 - 9, 1 To 7)
    n = 1
    k = -2
    For y = 1 To UBound(arr)
        k = k + 3
        If k > 7 Then k = 1: n = n + 10
        brr(n, k) = arr(y)
    Next y
    Range("b2").Resize(n, 7) = brr
EndSub: '此处表示正常结束，退出SUB
    Exit Sub
ErrorHandle:
    Stop '出错时会跳转到这里，可以查看错误时变量值和状态
End Sub
WorksheetFunction.RoundUp(UBound(arr) / 3, 0) * 10 - 9这部分公式是因为目标区域是如果只有一行，那行高是1，两行就是11，三行就是21，以此类推，所以要这样计算。

markang

谢谢.对哦,我竟然连这个也想不起来......其实我设定个大的数值就可以了brr(1 To 1000, 1 To 7)
哈哈结合上各朋友的帮助问题总算解决了