'13，多工作表不同产量总重量汇总（字典）

'http://club.excelhome.net/viewthread.php?_

tid=523576&pid=3452133&page=1&extra=page%3D1

'计算多个表相同名称的总重量0108.xls

Private Sub CommandButton1_Click()

    Dim nm$, nm1$, i&,d, st As Worksheet, r1, ad$, sul, t

    nm = "各机组投产数量"

    nm1 = "材料调价分类明细"

    Set d =CreateObject("scripting.dictionary")

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

       d("" & Cells(i, 2)) = 0  '不重复材料重量置0

    Next i

    For Each st In Sheets

       If st.Name <> nm1 And st.Name <> nm And st.Name <>"data" And st.Name <> "提示" Then

           Set r1 = Sheets(nm).Cells.Find(st.Name, , , 1)

           If Not r1 Is Nothing Then

               ad = r1.Address  '表格名的地址

               sul = Sheets(nm).Range(ad).Offset(1, 0)  '投产的数量

               If sul <> 0 Then

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

                       d("" & st.Cells(i, 3)) = d("" & st.Cells(i, 3)) +st.Cells(i, 4) * sul

                   Next i

               End If

           End If

       End If

    Next st

    t = d.items

    [f3].Resize(d.Count, 1)= Application.Transpose(t)

    Exit Sub

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

       Cells(i, 6) = d("" & Cells(i, 2))

    Next i

End Sub