wps合并所有sheet页_每周一个小应用|多表一键合并

日常审计工作里,Excel是最常见的格式。但由于Excel本身的数据量限制,往往需要审计的数据会被分割成若干张Excel数据表。这样虽然可以缓解数据量过大导致Excel运行慢的问题,但实际分析中,表的数量会带来诸多不便。

本周应用:

用Arbutus一键合并所有Excel数据表。

e0522e9a86f1373317719cef338e1c0e.png

某天,审计部

拿到了一张年度流水表

这张Excel表里

包含了12个Sheet

记载着月度流水数据

f367942130f3aac273ffdc445662c229.png

为了分析

审计部需要将多个Sheet合并在一起

将分开的月份数据

重新整理为一张年度流水数据表

50eff88b31b4d5da91806141d01a4f21.png

在Arbutus菜单栏

点击[导入]命令

选择这张Excel表格

一键,将所有sheet全部导入

然后

点击[附加]命令

选择这些导入的表格

点击OK

一键,将所有sheet全部合并

03d9055cacf9cbf4bd0c8a8ad6d66532.png

为了更好的理解

我们来一套动作分解教程~

新建表-选择Excel表格

Arbutus会自动识别所有Sheet

选择它们

全部导入

ae2a00630025fbbf9c62db546670c11d.gif

点击[附加命令]的图标

选择所有的sheet

输入一个新的表名后点击OK

9ad51d9c27da82def9f255c2d37b5bdb.gif

caad3b6148e168d17ca8d624c4b25ce4.png

如果...

这些表的结构不完全一致..

比如...

A表里的时间"20160101"

被Excel错误的定义为数字了..

B表里的时间"20170101"

却又被Excel正确定义为时间..

这种情况,也能把它们附加在一起吗?

Of Course!!

b462ae5de203c7bd3e97edd7bc747a84.png

只需要

按照上图说明

勾选对应的附件选项即可

这样,无论顺序、类型如何

Arbutus都能完美的

把它们的合并在一起

6da387f2d1ee466ab5e53d87f209b70e.png

Arbutus的伙伴们

趁热打铁,赶紧试试操作~

没有Arbutus的朋友们

可关注Arbutus公众号-点击试用申请

4a17f2437f72638f68c238a2118658c1.png

d8ef4c74143ac3c8509f5f1c26a2f3ea.png

-完-

WPS Spreadsheets ,你可以使用“宏”功能来创建一个按键,用于合并多个工作表。以下是具体的步骤: 1. 打开 WPS Spreadsheets,并打开包含要合并的多个工作表的工作簿。 2. 在功能区的“开发”选项卡,点击“宏”按钮。如果没有看到“开发”选项卡,请右键点击功能区,选择“自定义功能区”,然后勾选“开发”选项卡。 3. 在弹出的“宏”对话框,点击“新建”按钮,输入一个宏的名称(比如“合并工作表”),然后点击“确定”。 4. 这将打开 Visual Basic 编辑器。在编辑器,输入以下 VBA 代码: ```vba Sub 合并工作表() Dim ws As Worksheet Dim wsMerge As Worksheet Dim lastRow As Long Dim mergeStart As Boolean ' 创建一个新的工作表用于合并数据 Set wsMerge = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)) wsMerge.Name = "合并数据" ' 设置合并开始标志为 False mergeStart = False ' 循环遍历所有工作表 For Each ws In ThisWorkbook.Worksheets ' 跳过新创建的合并工作表 If ws.Name <> "合并数据" Then ' 获取当前工作表的最后一行 lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 如果合并开始标志为 False,则将合并开始标志设置为 True,跳过当前工作表的第一行 If Not mergeStart Then mergeStart = True lastRow = lastRow - 1 End If ' 将当前工作表的数据复制到合并工作表的下一行 ws.Range("A2").Resize(lastRow, ws.UsedRange.Columns.Count).Copy _ Destination:=wsMerge.Cells(wsMerge.Cells(wsMerge.Rows.Count, 1).End(xlUp).Row + 1, 1) End If Next ws ' 自动调整合并工作表的列宽 wsMerge.UsedRange.Columns.AutoFit MsgBox "合并完成!" End Sub ``` 5. 关闭 Visual Basic 编辑器。 6. 在“宏”对话框,选择刚才创建的宏(比如“合并工作表”),然后点击“添加”按钮。 7. 在“自定义功能区”对话框,选择一个你想要添加该宏的位置(比如“主”选项卡),然后点击“确定”。 8. 现在,在你选择的位置上会出现一个新的按钮,点击该按钮就会执行你的宏,合并多个工作表。 请注意,WPS Spreadsheets 的宏功能与 Microsoft Excel 的 VBA 宏有些许差异,因此在编写和执行宏时可能会有一些细微的差别。以上给出的示例代码在 WPS Spreadsheets 应该可以正常工作,但如果遇到问题,请根据具体情况进行调整。 希望这些步骤能帮助你创建一个按键来合并多个工作表!如有其他问题,请随时提问。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值