多表同一位置求和，sum（’1：31’！e4:e1100)如何用VBA方式实现

448911031

多表同一位置求和，sum（’1：31’！e4:e1100)如何用VBA方式实现。电脑没网了，手机发的，没法上传附件。给个例子就行。谢谢老师！已补上传表格。

lsc900707

还是上传个附件吧。

不知道为什么

这个无需字典，循环工作表

448911031

不知道为什么 发表于 2019-3-9 09:56
这个无需字典，循环工作表

请问，具体怎么做呢？

448911031

lsc900707 发表于 2019-3-9 09:39
还是上传个附件吧。

已上传附件，请老师指点，谢谢！

719404338

1. Sub t()
   
2. Dim i, j, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each sh In Worksheets
   
5. If sh.Name <> "机台不良汇总" And sh.Name <> "不良汇总" Then
   
6. For i = 4 To sh.[b65536].End(3).Row
   
7.     For j = 6 To 28
   
8.     d(sh.Cells(3, j).Value) = d(sh.Cells(3, j).Value) + sh.Cells(i, j)
   
9.     Next j, i
   
10. End If
    
11. Next
    
12. For j = 2 To 24
    
13. Cells(4, j) = d(Cells(2, j).Value)
    
14. Next j
    
15. End Sub

复制代码

448911031

719404338 发表于 2019-3-9 19:38

先不看代码，只要是帮助的老师，最少两朵小红花

lsc900707

448911031 发表于 2019-3-9 19:16
已上传附件，请老师指点，谢谢！

1. Sub gj23w98()
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For Each sht In Sheets
   
5.         If InStr(sht.Name, "汇总") = 0 Then
   
6.             arr = sht.[a1].CurrentRegion
   
7.             For i = 4 To UBound(arr)
   
8.                 For j = 5 To 28
   
9.                     s = arr(3, j)
   
10.                     d(s) = d(s) + arr(i, j)
    
11.                 Next
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     brr = [a1].CurrentRegion
    
16.     For j = 1 To 24
    
17.         s = brr(2, j)
    
18.         If d.exists(s) Then Cells(3, j) = d(s)
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21. End Sub

复制代码

lsc900707

448911031 发表于 2019-3-9 19:16
已上传附件，请老师指点，谢谢！

参考测试附件：

448911031

719404338 发表于 2019-3-9 19:38

Sub 求和()

    Dim i, j, d

    Set d = CreateObject("Scripting.Dictionary")

    For Each sh In Worksheets

        If sh.Name <> "机台不良汇总" And sh.Name <> "不良汇总" Then

            For i = 4 To sh.[b65536].End(3).Row

                For j = 5 To 28

                    d(sh.Cells(3, j).Value) = d(sh.Cells(3, j).Value) + sh.Cells(i, j)

                Next j

            Next i

        End If

    Next

    For j = 1 To 24

        Cells(3, j) = d(Cells(2, j).Value)

    Next j

End Sub