[已解决]怎么取不到汇总数，不知错在哪，头好晕！

dtxczjzmp

1. Sub hz()
   
2.     Dim sh As Worksheet, r As Long, S1 As Worksheet, arr, brr()
   
3.     Set S1 = Sheets("汇总")
   
4.     S1.Range("A6:f65536").ClearContents
   
5.     For Each sh In Sheets
   
6.         If sh.Name <> "汇总" Then
   
7.             r = sh.Range("a65536").End(xlUp).Row
   
8.             arr = sh.Range("a6:f" & r)
   
9.             ReDim brr(1 To r, 1 To 6)
   
10.            
    
11.                 For r = 1 To UBound(arr)
    
12. 
    
13.                     brr(r, 1) = arr(r, 1)
    
14.                     brr(r, 2) = brr(r, 2) + arr(r, 2)
    
15.                     brr(r, 3) = arr(r, 3)
    
16.                     brr(r, 4) = brr(r, 4) + arr(r, 4)
    
17.                     brr(r, 5) = arr(r, 5)
    
18.                     brr(r, 6) = brr(r, 4) + arr(r, 6)
    
19.                 Next
    
20.             
    
21.         End If
    
22.     Next sh
    
23.     With S1
    
24.         S1.Range("a6").Resize(20, 6) = brr
    
25.     End With
    
26. End Sub
    

复制代码

2011年结算表.rar (14.39 KB, 下载次数: 11)

2012-2-24 22:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-24 23:05

Sub hz()
    Dim sh As Worksheet, r As Long, S1 As Worksheet, arr, brr()
    Set S1 = Sheets("汇总")
    S1.Range("A6:f65536").ClearContents
    For Each sh In Sheets
        If sh.Name <> "汇总" Then
            r = sh.Range("a65536").End(xlUp).Row
            arr = sh.Range("a6:f" & r)
            ReDim Preserve brr(1 To r, 1 To 6)
            For r = 1 To UBound(arr)
                brr(r, 1) = arr(r, 1)
                brr(r, 2) = brr(r, 2) + arr(r, 2)
                brr(r, 3) = arr(r, 3)
                brr(r, 4) = brr(r, 4) + arr(r, 4)
                brr(r, 5) = arr(r, 5)
                brr(r, 6) = brr(r, 4) + arr(r, 6)
            Next
        End If
    Next sh
    With S1
        S1.Range("a6").Resize(20, 6) = brr
    End With
End Sub

只加了红色这个位置，再对吗

跳转到最佳答案楼层

爱疯

Sub hz()
    Dim sh As Worksheet, r As Long, S1 As Worksheet, arr, brr()
    Set S1 = Sheets("汇总")
    S1.Range("A6:f65536").ClearContents
    For Each sh In Sheets
        If sh.Name <> "汇总" Then
            r = sh.Range("a65536").End(xlUp).Row
            arr = sh.Range("a6:f" & r)
            ReDim Preserve brr(1 To r, 1 To 6)
            For r = 1 To UBound(arr)
                brr(r, 1) = arr(r, 1)
                brr(r, 2) = brr(r, 2) + arr(r, 2)
                brr(r, 3) = arr(r, 3)
                brr(r, 4) = brr(r, 4) + arr(r, 4)
                brr(r, 5) = arr(r, 5)
                brr(r, 6) = brr(r, 4) + arr(r, 6)
            Next
        End If
    Next sh
    With S1
        S1.Range("a6").Resize(20, 6) = brr
    End With
End Sub

只加了红色这个位置，再对吗

hrpotter

你这个用得着这么复杂吗，格式都一样的，直接用

1. =SUM('1:10'!B6)

复制代码

拖拖就行了

dtxczjzmp

爱疯 发表于 2012-2-24 23:05
Sub hz()
    Dim sh As Worksheet, r As Long, S1 As Worksheet, arr, brr()
    Set S1 = Sheets("汇总 ...

多谢了，我自己也找到原因了！原来就这个preserve惹得祸！

fjmxwrs

dtxczjzmp 发表于 2012-2-24 23:17
多谢了，我自己也找到原因了！原来就这个preserve惹得祸！

1. Sub hz()
   
2. Dim sh As Worksheet, arr, brr, i%
   
3. With Sheets("汇总")
   
4. .Range("B6:B24,D6:D24,F6:F24").ClearContents
   
5. brr = .Range("A6:F24")
   
6. For Each sh In Worksheets
   
7. If sh.Name <> "汇总" Then
   
8. arr = sh.Range("A6:F24")
   
9. For i = 1 To UBound(arr)
   
10. brr(i, 2) = brr(i, 2) + arr(i, 2)
    
11. brr(i, 4) = brr(i, 4) + arr(i, 4)
    
12. brr(i, 6) = brr(i, 6) + arr(i, 6)
    
13. Next
    
14. End If
    
15. Next sh
    
16. .Range("A6").Resize(UBound(brr), UBound(brr, 2)) = brr
    
17. End With
    
18. End Sub

复制代码

用VBA就这样就行了，不需要二次定义数组
2011年结算表.zip (18.66 KB, 下载次数: 6)

2012-2-24 23:19 上传

点击文件名下载附件

fjmxwrs

dtxczjzmp 发表于 2012-2-24 23:17
多谢了，我自己也找到原因了！原来就这个preserve惹得祸！

你的表全是一样的，直接用公式非常简单
2011年结算表.zip (18.63 KB, 下载次数: 14)

2012-2-24 23:24 上传

点击文件名下载附件

呵呵，三楼已经给出你公式了。

dtxczjzmp

fjmxwrs 发表于 2012-2-24 23:19
用VBA就这样就行了，不需要二次定义数组

非常感谢您的帮助！

爱疯

如fj所说，应该不必redim 10次。
可能是楼主复制掉了吧

dtxczjzmp

爱疯 发表于 2012-2-24 23:45
如fj所说，应该不必redim 10次。
可能是楼主复制掉了吧

实际工作中有30多个工作表，且工作表名很复杂！

爱疯

dtxczjzmp 发表于 2012-2-24 23:50
实际工作中有30多个工作表，且工作表名很复杂！

如果每个表行列数一样，那么和表名是否复杂，表的数量无关，可定义成静态数组。