自己写了一个VBA程序，运行不下去，求高手指导

flyhighgaofei

我的目标是将表1中的数据整理后记录到表2中。
先在表2第一行添加要统计的字段，表外的字段用红色，表内的字段用蓝色。然后运行程序，从表1中找出所有资料记录到表2中。

笑着...两年过去

1. Sub test()
   
2.     arr = Sheet1.Range("a2:v" & Sheet1.[a65333].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To 7)
   
4.     For i = 1 To UBound(arr)
   
5.         If InStr("工程名称：段次合计", arr(i, 1)) = 0 And arr(i, 1) <> "" Then
   
6.            j = j + 1
   
7.            brr(j + 1, 1) = arr(i, 1): brr(j + 1, 2) = arr(i, 2): brr(j + 1, 3) = arr(i, 3): brr(j + 1, 4) = arr(i, 4): brr(j + 1, 5) = arr(i, 5): brr(j + 1, 6) = arr(i, 7)
   
8.            brr(j + 1, 7) = Sheet1.Cells(Sheet1.Cells(i + 1, 2).End(3).Row - 3, 6)
   
9.         End If
   
10.     Next
    
11.     brr(1, 1) = "段次": brr(1, 2) = "自": brr(1, 3) = "至": brr(1, 4) = "段长": brr(1, 5) = "孔径": brr(1, 6) = "透水率": brr(1, 7) = "孔号": Sheet5.[a1].Resize(j + 1, 7) = brr
    
12. End Sub

复制代码

取数