ExcelVB代码：把多个工作表求和到1张表单

1、目录存放关系，如图所示。

2、打开“汇总表”，鼠标右击Sheet1，选择查看代码，进入“代码编辑窗口”。

3、按照图中1、2的顺序，把此代码复制到“代码编辑区”，单击图中3及执行代码，保存即可。

Sub 执行宏代码()    Dim Fso, Fld, Fl    Dim arr, brr(1 To 4, 1 To 2), i%, j%    Set Fso = CreateObject("Scripting.FileSystemObject")    Set Fld = Fso.getfolder(ThisWorkbook.Path & "\数据\")    If Fld.Files.Count > 0 Then        Application.ScreenUpdating = False        For Each Fl In Fld.Files            Workbooks.Open (Fl)            arr = ActiveWorkbook.Worksheets(1).[B2:c5] '各表数据域赋给数组arr            For i = 1 To 4 '逐行                For j = 1 To 2 '逐列                    If IsNumeric(arr(i, j)) Then brr(i, j) = brr(i, j) + arr(i, j) '如果单元格是数字则累加                Next            Next            ActiveWorkbook.Close        Next        Application.ScreenUpdating = True        ThisWorkbook.Worksheets(1).[B2:c5] = brr '写数据        MsgBox "数据汇总完成"    Else        MsgBox "没有找到任何工作簿文件"    End If

End Sub

4、执行代码后的最后效果。