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 IfEnd Sub

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