求助：几个相同表格数据汇总在一张表上？请教各位老师？？

yxky2006

求助：如何将几张表（1、2、3表）结构内容一样的数据汇总在另一张同结构（1-3月份汇总表）表中？不用透视表，可以哪种简便方法实现?谢谢老师。见附件：销量合计

风林火山

Sub 汇总()
    Dim fpath As String, d, i As Integer, arr, brr, str As String
    Dim wk As Workbook
    Dim n As Byte, m As Integer, ii As Integer
    arr = Application.GetOpenFilename(, 2, , , True)
    If IsArray(arr) = False Then Exit Sub
    Set d = CreateObject("scripting.dictionary")
   
    For n = 1 To UBound(arr)
        Set wk = Workbooks.Open(arr(1))
        brr = Range("a1").CurrentRegion
        i = Cells(Rows.Count, 1).End(3).Row
        ii = UBound(brr, 2)
        For m = 3 To i
            For ii = 3 To UBound(brr, 2)
                str = Cells(m, 2).Text & "," & Cells(2, ii).Text
                d(str) = d(str) + Cells(m, ii).Value
            Next ii
        Next m
        Erase brr
        wk.Close
        Set wk = Nothing
    Next n
   
        brr = Range("a1").CurrentRegion
        i = Cells(Rows.Count, 1).End(3).Row
        ii = UBound(brr, 2)
        For m = 3 To i
            For ii = 3 To UBound(brr, 2)
                str = Cells(m, 2).Text & "," & Cells(2, ii).Text
                Cells(m, ii) = d(str)
            Next ii
        Next m
        
        Set d = Nothing
End Sub

yxky2006

谢谢风林火山的帮助，如果是有5、10、20张表，代码中需要改哪个代码数据？再次谢谢风林火山老师

aidunsoft

你可以表格合并啊，https://www.bilibili.com/video/BV1n34y1B7c5/