[已解决]请修改下标越界！

xxjjdd0000

1. Sub 入库()
   
2. Dim x&, y&, Arr, Brr(), d1, d2, Row2, d3, d4, br()
   
3. Sheet1.Activate
   
4. With Sheet1
   
5. Row2 = Sheet2.Range("a65536").End(xlUp).Row
   
6. d1 = .[P4]: d2 = .[H15]: d3 = .[d15]: d4 = .[c4]
   
7. Arr = .Range("b8").CurrentRegion
   
8. ReDim Brr(1 To UBound(Arr), 1 To 14)
   
9. For x = 1 To 3
   
10. If Arr(x, 1) <> "" Then
    
11. Brr = Array(d2, Arr(x, 5), d1, Arr(x, 1), Arr(x, 3), Arr(x, 4), Arr(x, 8), Arr(x, 10), Arr(x, 14), Arr(x, 15), Arr(x, 16), d3, , d4)
    
12. m = m + 1
    
13. For y = 1 To 14
    
14. br(m, y) = Brr(x, Brr(y))
    
15. Next
    
16. 
    
17. End If
    
18. Next
    
19. If m > 0 Then Sheet2.Range("a" & Row2 + 1).Resize(m, 14) = br
    
20. End With
    
21. Application.ScreenUpdating = True
    
22. End Sub

复制代码

下标越界.rar (11.17 KB, 下载次数: 3)

2013-7-14 20:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

上清宫主

2013-7-14 21:05

在for循环前加一行ReDim br(1 To UBound(Arr), 1 To 14)；最内层的for循环内容改成br(m, y) = Brr(y - 1)

跳转到最佳答案楼层

上清宫主

在for循环前加一行ReDim br(1 To UBound(Arr), 1 To 14)；最内层的for循环内容改成br(m, y) = Brr(y - 1)

xxjjdd0000

上清宫主 发表于 2013-7-14 21:05
在for循环前加一行ReDim br(1 To UBound(Arr), 1 To 14)；最内层的for循环内容改成br(m, y) = Brr(y - 1)

谢谢！在这里卡着了，现在好了。