跪求好方法合并工作薄

zjj979 · 发表于 2010-11-25 08:14

是这样子的一个EXCEL表里有两个工作薄sheet1和sheet2 需要把sheet2的内容剪切到sheet1里其实单个表格操作很简单因为宽度都是一样的只要全选sheet2的内容剪切然后在sheet1的结束行黏贴就可以了但关键是有1000多个excel表需要操作请问各位大侠有没有好办法可以帮帮我批量操作 (最好详细点说明我是菜鸟55)

doitbest · 发表于 2010-11-25 10:05

只能用宏了
Public Sub copyit()
For Each x In Workbooks
x.Worksheets(2).Range("a1:h24").Copy x.Worksheets(1).Range("a26")
Next
End Sub

刷了黑的太阳 · 发表于 2010-11-25 10:25

有好多这方免的EXCEL程序的！

beita9999 · 发表于 2010-12-12 12:41

强烈推荐EXCEL必备工具箱7.0，里面有很多实用的工具，直观，容易操作，而且免费
http://club.excelhome.net/viewth ... 8%B9%A4%BE%DF%CF%E4

赠送小狗 · 发表于 2011-7-18 20:39

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

赠送小狗赠送小狗当前离线性别保密 UID 1201620 阅读权限 0 注册时间 2010-8-28 在线时间小时最后登录 1970-1-1 积分 1 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2011-7-18 20:39 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 跪求好方法合并工作薄