WPS表格怎样合并同一文件夹下的多个表格
发布时间：2023-11-16 00:34:42
一个文件夹中有很多相同类型但是数值不同的表格，如何能够快速的把这些表格合并成一张表格呢?下面小编给大家分享WPS表格合并多个表格的方法，欢迎阅读。
WPS表格合并同一文件夹下的多个表格的方法
第一步：把想合并的这些表格在同一个文件夹中(不想合并的表格就别放在这个文件夹里面了))
第二步：按住快捷键“ALT+FN+F11”会出现如下界面
第三步：点击最左边的“查看代码”这个选项
第四步：把合并代码复制到文档里面
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) – 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
这样就可以完成一个文件夹下所有同样类型的表格合并了，是不是非常的简单方便!
0
投稿猜你喜欢
有许多小伙伴问到如何将读卡器或相机中的照片导入到Adobe Lightroom CC 2018 for Mac中？为此小编特地码出了这篇文章- 工作组就是将不同的电脑按功能分别列入不同的组中，以方便管理，但是很多小伙伴不知道win10怎么更改工作组，那么应该如何去更改工作组呢？下面就
- 当您获得第一台 Mac 时，您可能会发现它与 Windows 机器完全不同。Dock 中闪烁着不同的应用程序，界面更漂亮，没有开始按钮等等。
- win11win键被锁怎么解锁？我们经常会在系统里使用快捷键来执行某些操作，但是有时候会出现win键被锁的情况，无法使用，那么win11wi
- Win10易升是微软官方发布的Win10升级工具，不仅可以帮助用户将Win7/Win8.1系统升级到Win10，也可以把Win10系统升级到
- 如何在wps文字中添加文档目录呢?对于新手来说还是有一定难度，怎么办?下面小编就为你提供wps文字如何添加目录的方法啦!wps文字插入目录的
- excel表格数据太乱，查找不方便?具体该怎么去进行操作的呢?今天，小编就教大家在Excel中表格数据自动排序的操作技巧。Excel中表格数
- 你们知道如何在Excel中筛选信息吗?不会的跟我一起来看看吧。下面是小编为大家精心整理的关于如何操作Excel中的筛选命令，希望能够帮助到你
- 拼多多怎么开通微信免密支付？拼多多是一款大家非常熟悉的购物软件，用户们可以在里面拼单购买物品，如果我们想要在拼多多中开通微信免密支付的话，要
- 大家知道吗，win10系统可以设置豆沙绿颜色窗口。应该还有很多人不知道如何设置豆沙绿吧，下面针对这个问题，小编就给大家分享一下win10豆沙
- 现在很多企业都在使用钉钉，由于疫情很多时候我们会议会使用钉钉会议举行，但是有的小伙伴不知道怎么使用，小编觉得我们首先需要在手机钉钉中选择钉钉
- Windows 10更新五月版发布了新的累积性更新Build 18362.86，具体补丁型号是KB4497093，下文小编为大家整理了详细内
- wps文字是日常办公的必备工具之一，为了让自己辛苦制作的文档不被别人盗用，我们可以在wps文字中为文档添加专属于自己的水印标记，那么，怎样在
- 有不少朋友想知道安装Win7系统的最低电脑配置要多少，按照目前的情况，基本所有的电脑都是可以直接安装win7系统的，一些旧电脑除外，今天就和
- wps是很多用户都在使用的办公软件，功能与office相似，但是最近有用户发现wps中所有的功能按钮全灰色了，完全点击不了，这要如何恢复？下
- Mp3tag作为一款专业的音频编辑工具，不仅可以编辑修改音频的文件名、演唱者、制作人等信息，还可以为音频文件添加封面及提取封面等，添加封面的
- 通过条件格式的设置，可以将符合条件设置的行很明显，那么多个条件呢，下面让小编为你带来excel多条件格式设置的方法。excel多条件格式设置
- 雷蛇在CES2017上展示代号为“Project Valerie”的游戏本，简单粗暴的可折叠三屏幕设计惊艳全场，那么智能手机未来会出现更为极
- 欢迎观看 Premiere Pro 教程，小编带大家学习 Pr 的基本编辑技巧，了解如何使用色轮。使用「Lumetr
- 升级win10系统后，有用户使用的过程中发现开机之后的的一段时间内出现黑屏的情况。win10电脑开机启动都需黑屏一会儿怎么办?其实这可能是我
