问题描述

在工作中，做数据分析时遇到的一个问题。## 标题文字 ##
在一个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 年 12 月 30 日
© 允许规范转载
如果觉得我的文章对你有用，请随意赞赏