求多个excel工作簿如何汇总

发布网友发布时间：2022-03-03 03:13

共2个回答

热心网友时间：2022-03-03 04:42

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

热心网友时间：2022-03-03 06:00

复制一家的工作簿作为汇总工作簿，再打开第2家工作簿，点击“录制宏”（2007左下角有一个带红点的表格样图标按钮就是录制宏的开关，2000菜单为“工具－宏－录制新宏”），再将每个工作表复制，以“选择性粘贴－数值－加”方式粘贴到对应的汇总簿表单，全部完成后，停止录制宏，进入宏编辑器（2007菜单为开发工具，2000菜单“工具－宏－编辑器”），修改其中有第2家工作簿名称的参数，如：将workbooks("第2家报表.xls")改为activeworkbook，之后，再打开依次打开其余工作簿，每打开一个，就运行一次宏（按Alt+F8可以看到宏名称，点击“执行”即可）。
也可自行编辑一个宏过程，先进入宏编辑器，选中汇总簿名称，点击菜单“插入－模块”，双击插入的宏模块，就可以编写下面的宏过程了：

sub 汇总报表()

a=thisworkbook.fullname

b=thisworkbook.name

c=left(a,len(a)-len(b)) '取得汇总簿所在路径

If right(c,1)<>"\" Then c=c+"\"

set y=createobject("Scripting.FileSystemObject")

set d=y.getfolder(c)

set f=d.files

for each k In f '检查和处理每个文件

if (lcase(right(k.name,3))="xls") and (k.name<>thisworkbook.name) then

'如果是2007，扩展名为xlsx，就将上句中“3))="xls"”改为“4))="xlsx"”

m=c+k.name

workbooks.open m '打开要汇总的文件

for each s in activeworkbook.sheets '检查处理每个表单

s.select

x=s.name

cells.copy '复制并选择相加式数值粘贴到对应表单

thisworkbook.sheets(x).range("a1").PasteSpecial Paste:=xlValues, Operation:=xlAdd

next s

activeworkbook.close false '关闭已处理文件

end if

next k

end sub

编写完毕，全选汇总簿所有表单和全部区域，一次性删除（清空）后，即可运行，运行完毕即可一次性完成全部汇总工作。

注意：这里假设的是所有数据都是加总求和，没有计数和平均值，所有文字项都不作处理，运行前保证全部报表与汇总簿在同一文件夹内，文件夹没有无关文件，所有报表拥有完全相同的文件类型、表单名称和格式。如果汇总簿是2007的xlsx文件，保存后，宏过程会自动丢失。