得看你是要直接复制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
内容全部来源于网络收集，如有侵权，请联系网站删除！