品质协会(www.PinZhi.org)

 找回密码
 加入协会

QQ登录

只需一步,快速开始

查看: 10804|回复: 4

如何将Excel不同的SHEET页合并在一起?合并工作表(工作簿)

[复制链接]

197

主题

845

回帖

10

精华

管理员

Rank: 12Rank: 12Rank: 12

积分
87132
品质币
85890
职位
1
发表于 2017-8-3 14:40:08 | 显示全部楼层 |阅读模式
因为需要合并Excel数据,今天又学到一个知识点,如何将Excel不同的SHEET页合并在一起?在网上找找,得到一个好方法。

1、打开你的工作簿,新建一个工作表;

2、在这个工作表的SHEET标签上右键,查看代码;

3、你把下面的代码复制到里边去,然后,上面有个运行,运行子程序就可以了;

4、代码如下,如果出现问题你可以尝试工具 - 宏 - 宏安全性里把那个降低为中或者低再试试;

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub

发给帖子,分享下,顺便做下记录,以后用到再来。
1. 问答、交流探讨的帖子,回帖时,请不要发纯表情等无价值回帖,无意义,太多了影响用户体验,经常这样账号会被扣分甚至禁号的;
2. 品质协会是个学习、交流分享的平台,所有资料和内容归作者和版权方所有,需要正版标准、资料的请去相关的官方网站等平台购买。

0

主题

35

回帖

0

精华

品质协会高级会员

Rank: 4

积分
3780
品质币
3745
职位
质量工程师
居住地
四川省
发表于 2017-8-3 15:32:52 | 显示全部楼层
这是个好东西  但是代码得随身带
清晨醒来,你和阳光都在,这就是我想要的未来...

0

主题

3205

回帖

0

精华

品质协会高级会员

Rank: 4

积分
3235
品质币
30
职位
3
发表于 2017-8-7 14:51:44 | 显示全部楼层
好方法,值得保存!

86

主题

7970

回帖

0

精华

品质协会高级会员

Rank: 4

积分
8159
品质币
103
职位
4
发表于 2018-2-1 12:55:40 | 显示全部楼层
感谢分享

2

主题

18

回帖

0

精华

品质协会初级会员

Rank: 2

积分
136
品质币
116
职位
5
居住地
浙江省 金华市 义乌市
发表于 2020-11-24 11:48:55 | 显示全部楼层
您需要登录后才可以回帖 登录 | 加入协会

本版积分规则

《品质协会规则》|品质币|品质B2B|手机版|加入协会|联系我们|品质协会(www.PinZhi.org)

GMT+8, 2024-3-28 20:03 , Processed in 0.023279 second(s), 5 queries , Gzip On, Redis On.

Powered by 品质协会 © 2010-2024

品质人,让生活和环境变得更美好!!!

快速回复 返回顶部 返回列表