怎么把多个excel表格中的东西复制或者合并到一个excel表格中去

怎么把700多个excel中的东西快速复制或粘贴到一个表格中? 要是一个一个复制会死人的 求高手

可以在Excel表格中用下面的VBA程序实现:

Sub Test() '打开当前目录下文件,将Sheet1信息复制到汇总表上

Dim f$

Dim n& 

Mypath = ThisWorkbook.Path & "\"

f = Dir(Mypath & "*.xls*")

Do While f > " "

n = n + 1

Workbooks.Open Mypath & f 

Set c = ActiveWorkbook

arr=sheet1.UsedRange

c.Close

Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr

n=n+Ubound(arr,1)

f = Dir

Loop

End Sub

操作方法:

1、打开Excel编辑器,插入模块

2、将上面的程序复制进模块

3、在Excel页面中,点 开发工具-宏,执行里面名为Test的宏,即可自动完成汇总

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-07-24
右键工作表标签-就有移动或者复制工作表命令

满意请采纳本回答被提问者采纳
相似回答