稍微复杂点的利用双数组将EXCEL单元格非空值装入BRR数组中

autumnalRain

在老师们启发指导下，修改后

1. Sub test()
   
2. Dim arr, lastrow, brr(), x
   
3. 
   
4. maxrow = [b1048576].End(xlUp).Row
   
5. 
   
6. 
   
7. 
   
8. For i = 1 To maxrow Step 29
   
9.     lastrow = Cells(i + 2, "E").End(xlDown).Row
   
10.     arr = Range(Cells(i + 2, "C"), Cells(lastrow, "E"))
    
11. 
    
12. 
    
13. 
    
14. 
    
15.     For k = LBound(arr) To UBound(arr)
    
16.         If Not IsEmpty(arr(k, 1)) Then
    
17.             nonEmptyCount = nonEmptyCount + 1
    
18.         End If
    
19.     Next k
    
20.    
    
21.    
    
22.    
    
23.     ReDim Preserve brr(1 To 2, 1 To nonEmptyCount)
    
24. 
    
25. '    Debug.Print LBound(arr): Debug.Print UBound(arr)
    
26.     For j = LBound(arr) To UBound(arr)
    
27.         If arr(j, 1) <> "" Then
    
28.             x = x + 1
    
29.             brr(1, x) = arr(j, 1)
    
30.             brr(2, x) = arr(j, 3)
    
31.             
    
32.         End If
    
33.     Next j
    
34.       
    
35. Next i
    
36. [H1].Resize(UBound(brr, 2), UBound(brr, 1)) = Application.Transpose(brr)
    
37. 
    
38. End Sub
    

复制代码