跪求：将多张工作表合并在一张工作表中。

shiftzcg

合并计算，昨天刚做了一个30多个表的

taoshan

我也想知道，谢谢

贪吃的狼

用数据透视表合并计算，可能行

phong100

VBA
VBA
VBA
循环的

zhzj0905

待学习中！

fjh19880625

在全部工作表前插入一张工作表，选中新建工作表右击，选择查看代码，输入
Sub shcopy()
Dim nrow&,r1%,rs%,ls%
R1 = 2 ‘从第二行开始复制（可修改）
Application.enableevents = false
Application.screenupdating = false
For I = 2 to sheets.count
With sheets(i)
Rs = .usedrange.rows.count + 1 - r1
Ls = .usedrange.columns.count
Arr = .range(“a” & r1).resize(rs,ls)
Range(“a65536”).end(xlup).offset(1).resize(rs,ls) = arr  ‘2007版可以修改行数
End with
Next
Application.enableevents = true
Application.screenupdating = true
点击运行

yixuanbeyond

我现在遇到的是700多个，楼主，你的问题解决了没？解决的话分享下吧

306916267

yixuanbeyond 发表于 2013-11-20 11:17
我现在遇到的是700多个，楼主，你的问题解决了没？解决的话分享下吧

你解决没，我也遇到这问题了！

306916267

yixuanbeyond 发表于 2013-11-20 11:17
我现在遇到的是700多个，楼主，你的问题解决了没？解决的话分享下吧

你解决没，我也遇到这问题了！