快速合并工作表

njzz2004

我有若干个（好几十个）格式完全相同的excel工作表，只是不同工作表里的数据个数不一样，请问有没有什么快捷的方法（除了逐个表复制粘贴外）自动快速的把这若干个相同的工作表里的数据生成到一个工作表里去？
补充说明：本人不懂VB，只粗略的懂点函数。请各位帮帮忙！！

njzz2004

这些相同的工作表在不同的excel 文件里，而且每个文件还有不止一个工作表。

njzz2004

不知道我阐述清楚没有，我的意思是只需要把这些不同工作表里的数据都“粘贴”到一个工作表里。

lhdcxz

你说的很清楚。但是好像只有VBA可以解决啊。你给几个附件，模拟工作簿和模拟数据和你需要的结果吧。

njzz2004

谢谢了，如果要用VB你即使帮我做好，我也是一窍不通，完全看不懂，我不太喜欢这种感觉。总之谢谢你

lhdcxz

没有关系。我对函数一知半解、无能为力了。

沙漠边缘人

对我来说有些太复杂了~~{:soso_e106:}

Albert128

最好来个附件说事，函数也能办到的

zhubin@

Sub yy()
Sheets.Add after:=Sheets(Sheets.Count)'新建一个工作表放在最后
For i = 1 To Sheets.Count - 1'从第一个工作表到倒数第二个工作表
With Sheets(i)
n = .[c65536].End(xlUp).Row'分别求出最大行号
.Range("a2:V" & n).Copy ActiveSheet.[c65536].End(xlUp).Offset(1, -2)'取a2开始到最后的数据copy到新表数据的下一行。
End With
    Next
End Sub
   以上来源于度娘 希望对你有帮助

wubian2002

最好上传附件，可以合并的。