作业帮如何合并多个excel2007的统计表格文件到1个文件当中?有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 19:29:55
如何合并多个excel2007的统计表格文件到1个文件当中?有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的
如何合并多个excel2007的统计表格文件到1个文件当中?
有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的一个个复制黏贴还可以怎么做?
如何合并多个excel2007的统计表格文件到1个文件当中?有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的
注：本人所用EXCEL为OFFICE2003,在OFFICE2007中请将代码中的xls改为xlsx
你可以使用VBA,打开一个新的EXCEL文件,只要在EXCEL宏里运行以下代码（里面的文件夹地址一定要改成你要合并的EXCEL所在的文件夹地址）
Sub cfl()
Dim fs,f,f1,fc,s,x,rowss,columnss
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\test\asdfg\") '存放文件的目录
Set fc = f.Files
x = 1
For Each f1 In fc
If Right(f1.Name,3) = "xls" Then
Workbooks.Open (f1.Path)
rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Row
columnss = Workbooks(f1.Name).Sheets(1).columns.Count
Workbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).Copy
Workbooks(1).Activate
Workbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr( x + rowss)).Select
Workbooks(1).Sheets(1).Paste
Application.CutCopyMode = False
x = x + rowss
Workbooks(f1.Name).Close savechanges:=False
End If
Next
End Sub
补充：
1.无论在哪里打开一个新的EXCEL文件（此文件保存合并后的数据）,然后点击EXCEL菜单栏里的“工具”/“宏”/VB编辑器（V）,在“VB编辑器”中将以上代码复制进去
2.将程序里第四行的（Set f = fs.GetFolder("D:\test\asdfg\") '存放文件的目录 ）里的路径名改成你所要合并EXCEL文件所在的文件夹路径名
3.运行（里面的文件夹地址一定要改成你要合并的EXCEL所在的文件夹地址）