Question

怎样用宏把一个文件夹下所有的excel文件(每个文件有多个sheet)的数据copy到另外一

怎样用宏把一个文件夹下所有的excel文件(每个文件有多个sheet)的数据copy到另外一个sheet表中。一个一个粘也太菜了吧。

Answer 1

得看你是要直接复制Sheet，还是把所有Sheet中的数据复仿中制哗纤到一个新表中乱大仿？
Sub main()
Dim obj as worksheet,R as long
dim sheet as worksheet
set sheet=thisworkbook.worksheets.add()
sheet.name="合并"
for each obj in thisworkbook.worksheets
if obj.name<>"合并" then
r=sheet.usrange.rows+1
obj.userange.copy sheet.range("A"&R)
Next
End Sub