如何合并多个excel2007的统计表格文件到1个文件当中?有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 11:23:50
![如何合并多个excel2007的统计表格文件到1个文件当中?有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的](/uploads/image/z/1118717-53-7.jpg?t=%E5%A6%82%E4%BD%95%E5%90%88%E5%B9%B6%E5%A4%9A%E4%B8%AAexcel2007%E7%9A%84%E7%BB%9F%E8%AE%A1%E8%A1%A8%E6%A0%BC%E6%96%87%E4%BB%B6%E5%88%B01%E4%B8%AA%E6%96%87%E4%BB%B6%E5%BD%93%E4%B8%AD%3F%E6%9C%89%E5%87%A0%E7%99%BE%E4%BB%BD%E4%BB%8E%E5%9C%B0%E6%96%B9%E4%B8%8A%E6%8A%A5%E4%B8%8A%E6%9D%A5%E7%9A%84%E7%BB%9F%E8%AE%A1%E8%A1%A8%E6%A0%BC%2C%E6%AF%8F%E4%B8%AA%E8%A1%A8%E6%A0%BC%E8%A1%A8%E5%A4%B4%E9%83%BD%E4%B8%80%E6%A0%B7%2C%E4%B8%8B%E9%9D%A2%E7%9A%84%E6%95%B0%E6%8D%AE%E5%90%84%E4%B8%8D%E7%9B%B8%E5%90%8C%2C%E6%83%B3%E6%8A%8A%E5%87%A0%E7%99%BE%E4%BB%BDexcel2007%E6%96%87%E4%BB%B6%E5%90%88%E5%B9%B6%E5%88%B01%E4%B8%AA%E6%96%87%E4%BB%B6%E4%B8%AD%2C%E8%AF%B7%E9%97%AE%E9%99%A4%E4%BA%86%E7%B4%AF%E6%96%AD%E6%89%8B%E7%9A%84)
如何合并多个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所在的文件夹地址)