Excel使用技巧:如何将多个工作表合成一个?

问题描述

在工作中,做数据分析时遇到的一个问题。## 标题文字 ##
在一个Excel工作薄中有80多个工作表,数据结构一样,需要将他们合并在一个中,以方便处理数据。

怎样去处理?需要用到VBA了。

处理步骤

1.先建立一个新的工作表

2.在新建立表的标签上,右键然后点击“查看代码”

3.在VBA编辑窗口中粘贴下面的代码

    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

4.点击运行(下面是mac版Excel配图,win样式不一样)

然后就会看到一条合并完毕的提示,再回到新建的工作表中,就会看到已经合并完成了。

-> 加入科技玩家交流群组:点击加入 <-
注意:
1.文中二维码和链接可能带有邀请性质,请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头,拉app注册等信息,发现必小黑屋。
4.同一种信息仅发一次,多发会被删除。
5.文章中源码或APP等,无法保证其绝对安全,需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @十一 发布。如若转载,请注明出处: 科技玩家 » Excel使用技巧:如何将多个工作表合成一个?

给TA买糖
共{{data.count}}人
人已买糖
学习笔记折腾记精选文章

群晖Docker青龙面板bot交互配置7.19更新tgbot申请

2021-6-7 13:32:00

Office学习笔记工具

Excel使用技巧:如何将大于或小于某一数值替换成一个具体的数字?

2018-7-14 11:29:00

23 条回复 A文章作者 M管理员
贴心提醒
请认真对待作者付出,勿发表无意义言论,触发过滤规则的评论将无法提交,包含敏感词的评论会自动变成待审核状态哦。
  1. 这把看我表演

    谢谢分享,学习了

  2. 安夔

    谢谢分享

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索