请大神帮忙用VBA帮我解决一下

康康很爱牛奶

条件汇总，数值不为0的显示出对应的信息，详情查看压缩文件，万分感谢

康康很爱牛奶

求大神帮忙，万分感谢

康康很爱牛奶

求大神帮忙，万分感谢

康康很爱牛奶

求大神帮忙，万分感谢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet3")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     c = .Cells(2, .Columns.Count).End(xlToLeft).Column
   
7.     arr = .Range("a2").Resize(r - 1, c)
   
8.     ReDim brr(1 To 1000, 1 To 8)
   
9.     m = 0
   
10.     For i = 2 To UBound(arr)
    
11.       For j = 7 To UBound(arr, 2)
    
12.         If arr(i, j) <> 0 Then
    
13.           m = m + 1
    
14.           For k = 1 To 6
    
15.             brr(m, k) = arr(i, k)
    
16.           Next
    
17.           brr(m, 7) = arr(i, j)
    
18.           brr(m, 8) = arr(1, j)
    
19.         End If
    
20.       Next
    
21.     Next
    
22.   End With
    
23.   With Worksheets("汇总")
    
24.     .Cells.Clear
    
25.     .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
26.   End With
    
27. End Sub
    

复制代码

chxw68

详见附件。

康康很爱牛奶

chxw68 发表于 2018-7-18 11:44
详见附件。

谢谢哥哥  太谢谢您了

chxw68

康康很爱牛奶 发表于 2018-7-18 11:59
谢谢哥哥  太谢谢您了

很简单的问题。