求助：多个表格取数汇总

skull322

老板布置任务，需要汇总近100个表格数据，还要按汇总表的格式汇总，求助大神帮忙，自己弄了一中午没弄明白，十分感谢啊
附件是摘取的数据，谢谢

skull322

求助啊求助

uynayna

自己努力吧，我一天时间也看不懂你那表。

uynayna

Sub test()
    Application.ScreenUpdating = False
    Dim wb, wb1 As Excel.Workbook
    Dim sh As Excel.Worksheet
    Dim i, arr
    ReDim arr(1 To ？？？, 1 To ？？)
    f = Dir(ThisWorkbook.Path & "\*" & "xl*") '生成查找EXCEL的目录
    Do While f <> "" '在目录中循环
    i = i + 1
            If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿
                Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f)
                    With ActiveSheet
                    If sht.Name = 工作表名 Then
                           arr(i, j) = .Range("?")
                           arr(i, j) = .Range("?")
                     elseIf sht.Name = 工作表名 Then
                           arr(i, j) = .Range("?")
                           arr(i, j) = .Range("?")
                           .........
                    End If
                    End With
                Next sht
                wb.Close
            End If
        f = Dir
    Loop
    sheets("汇总表").Range("？").Resize(UBound(arr), ？) = arr
    Application.ScreenUpdating = True
End Sub



能懂自己改吧

skull322

uynayna 发表于 2017-9-26 14:34
Sub test()
    Application.ScreenUpdating = False
    Dim wb, wb1 As Excel.Workbook

我试试，谢啦