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.发现违规行为请私信站长LAzySheep或进TG群举报。
本文由 @十一 发布。如若转载,请注明出处: 科技玩家 » Excel使用技巧:如何将多个工作表合成一个?

给TA买糖
共{{data.count}}人
人已赞赏
运营

问答推广操作指南

2018-7-22 23:54:00

Office学习笔记工具

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

2018-7-14 11:29:00

11 条回复 A文章作者 M管理员
  1. throwwf

    EXCEL经常用到,赞一个

  2. 航小吴

    wps没有宏啊

  3. egria

    顶顶顶

  4. Yon丶my

    学到了,很不错的技巧

  5. sting

    简洁,不错,赞

  6. zebradam

    好像有个宏可以搞的,太高科技了

  7. 巴拿马锅盔

    大佬,YYDS👍

  8. [secret]把代码复制去了,但是还没没有 怎么操作啊?
    [/secret]

    • 可以贴个图看看问题

  9. VBA ,嗯,曾经也想学来着

个人中心
今日签到
有新私信 私信列表
搜索