Excel：如何把多个工作表合并成一个工作表

  • 原创
  • |
  • 浏览：6020
  • |
  • 更新：
  • |
  • 标签：EXCEL 

在同步处理多个excel表格的时候，很容易造成混乱。因此，我们可以根据自己的需求把多个工作表合并成一个工作表。

工具/原料

  • Excel

方法/步骤

  1. 1

    新建一个Excel工作薄，工作簿名称任你定义。

  2. 2

    打开此工作薄，将其中一个Sheet重命名为"汇总"。

  3. 3

    在其下任一个工作表标签上点击右键，选择“查看代码”。

  4. 4

    在打开的VBA编辑窗口中粘贴以下代码：

     

    Sub 合并工作簿内的多个Sheet到同一个Sheet() Dim i, j As Integer 'i是数据源表的最后一行，j是目标表(数据表)的最后一行 Dim sht As Worksheet Application.ScreenUpdating = False '关闭屏幕刷新 '先要删除所有数据 Sheets("汇总").Range("a1:z65536").ClearContents '复制数据 For Each sht In Sheets If sht.Name <> "汇总" Then i = sht.Range("d65536").End(xlUp).Row j = Sheets("汇总").Range("d65536").End(xlUp).Row sht.Range("a1:z" & i).Copy Sheets("汇总").Range("a" & j + 1) End If Next MsgBox "执行完毕！" Application.ScreenUpdating = True '打开屏幕刷新 End Sub

    Excel：如何把多个工作表合并成一个工作表
  5. 5

    关闭VBA编辑窗口

  6. 5
    本页面未经许可获取自百度经验
  7. 6

    在excel中，工具---宏---宏,选“合并工作簿的各个sheet到同一个sheet”,然后“执行”。

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
相关标签EXCEL