龙空技术网

Excel工作表、工作薄快速汇总数据,再也不怕门店多了,分分钟

饭后看视频从0开始 239

前言:

如今朋友们对“file函数的用法”大体比较讲究,小伙伴们都想要分析一些“file函数的用法”的相关文章。那么小编同时在网上收集了一些关于“file函数的用法””的相关内容,希望大家能喜欢,大家快快来学习一下吧!

在职场办公的时候,有时,因工作需求,需要对上百家、上千家门店上传的电子文档进行统一收集和汇总。如果一张一张表格进行复制粘贴,时间太浪费和精力了,而且稍微不注意,就容易漏掉或多复制一次,容易出错。所以,这里就需要一些小技巧来实现。本人,一般喜欢用Excel插件,因为不用熟记VBA和函数,动动手指就可以实现。

如图所示,这里有20多张表,我现在要将这些表全放在一个工作簿中。

如何实现下图效果:

点击-百宝箱-财务工具箱-工作薄或工作表合并

弹出工作薄合并选项框,按照下面图示操作即可汇总

其中,它有提示你,是多工作簿合并?还是多工作表合并?以及使用说明.

这里你可以自己下载摸索一下,很简单的

点击确定后,自动将同一文件里的工作表,全部汇总在一个工作簿里,工作簿里自动生成一个汇总目录,还列举了这些工作表清单出来,一目了然,清清楚楚。

在这里,你还可以可以用它的另一个功能,创建工作表连接

点击工作表名称,自动跳转到相应的工作表

当然,其他插件也能实现这个效果,如前面介绍的常用工具

打开一个工作簿,再双击这个表

点击启动宏

点击合并

弹出选项框,根据需求选择

点击确定

当然,你也可以直接VBA运行

代码如下

一样可以实现

代码:

Sub 工作薄间工作表合并()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

使用方法:

1、新建一个工作薄,将其命名为你合并后的名字。

2、打开此工作薄。

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

4、在打开的VBA编辑窗口中粘贴以上代码:

5、关闭VBA编辑窗口。

6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。

7、在打开的对话窗口中,选择你要合并的N个工作薄。

8、等待

标签: #file函数的用法