将多个相同工作簿中指定单元格内容汇总到一个工作簿

以EXCEL财务课程期末考试为例，假设学生excel试卷封面如下，excel软件已经将分数自动统计。如下图。

所有学生的试卷是相同格式的excel工作簿，现在需要将学生试卷中“课程代码”、“学号”、“姓名”、“合计分数”汇总到一个工作簿中。我们可以新建一个“汇总”工作簿，设置vba代码如下：

Sub 按钮1_Click()

    Set fso = CreateObject('scripting.filesystemobject') '创建一个文件操作对象,并将这个对象赋值给fso

    Set sh = ActiveSheet '当前工作表

    sh.UsedRange.Offset(1).ClearContents '清空表头下面的所有数据

    r = 1

    Application.ScreenUpdating = False '关闭屏幕更新

    For Each f In fso.getfolder(ThisWorkbook.Path).Files

        If InStr(f.Name, '汇总') = 0 Then

            With Workbooks.Open(f)

                r = r + 1

                sh.Cells(r, 1) = .Sheets(1).[d6]

                sh.Cells(r, 2) = .Sheets(1).[g6]

                sh.Cells(r, 3) = .Sheets(1).[j6]

                sh.Cells(r, 4) = .Sheets(1).[k13]

                .Close False

            End With

        End If

    Next f

    Application.ScreenUpdating = True'恢复屏幕更新

End Sub

只要点击汇总按钮，excel会自动汇总所有学生试卷内指定内容到“汇总”工作簿中。