利用原有表格对数据汇总

mintung

在工作中，其他部门每日都在汇总数据，在需要分析问题时需要查看原来的历史记录，但是一个一个打开费时费力，也无法进行比较，希望大神们帮忙利用VBA将每月的数据汇总到一张表上，详见附件

半百

试试
Sub 汇总()
p = ThisWorkbook.Path & "/"
f = Dir(p & "*.XLS")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set w = Workbooks.Open(p & f)
        arr = w.Sheets(1).UsedRange
        For Each sh In ThisWorkbook.Sheets
            Select Case Left(sh.Name, 2)
            Case "甲班"
            c = 3
            Case "乙班"
            c = 4
            Case "丙班"
            c = 5
            Case "总表"
            c = 6
            End Select
            ReDim a(18)
            For i = 4 To 22
            a(i - 4) = arr(i, c)
            Next
            R = sh.[A65536].End(3).Row + 1
            sh.Cells(R, 1) = Val(f)
            sh.Cells(R, 2).Resize(1, 19) = a
        Next
        w.Close
    End If
    f = Dir
Loop
End Sub

opiona

工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹http://club.excelhome.net/thread-1409141-1-1.html

mintung

半百 发表于 2018-4-27 15:53
试试
Sub 汇总()
p = ThisWorkbook.Path & "/"

这个在执行后  a(i - 4) = arr(i, c)提示下标越界，还有有空能给稍微讲解一下吗？