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样式不一样)

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

最后修改:2019 年 03 月 15 日 02 : 23 PM
如果觉得我的文章对你有用,请随意赞赏

发表评论