wps表格怎么合并两个表格?
发布时间:2023-09-27 13:24:19
我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:
用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:
然后我们把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,如图所示:
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
运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
注意事项
金山的WPS没有宏计算功能。只能用microsoft excel来实现。
猜你喜欢
- 许多小伙伴在设置计算机网络时需要使用ip地址,但许多小伙伴不知道如何查看和修改。了解ip地址有助于我们更方便地使用计算机。今天,肖边教你如何
- 远程桌面是我们本地连接远程电脑的功能,对于一些开发人员、运维人员、网站架设人员都经常需要远程连接桌面,进入到服务器干活。但万一这个连接提示出
- 在WPS文字中,水印在插入选项卡中设置,其具体操作步骤:1、单击插入----水印----插入水印;2、弹出水印对话框,根据需要,可以在此对话
- 电脑重启了一下,发现Office不能用了,打开之前的文档,提示程序无法启动错误代码0xc0000142,百度了一大堆办法,都是叫我怎么设置什
- OneDrive是微软全新推出的一款网络云盘,在win10系统中,OneDrive是属于系统内置的,无法真正进行卸载,除了借助软件移除掉这个
- 作者:图文设计师东东课程:Word工作证明制作疫情当下出门不易,不管你是出门还是工作,很多地方需要持工作证明或各种证明进入出入各种场所,所以
- 很多朋友在安装了office2013后发现很难彻底卸载干净,卸载不干净就会很占位置,真是一个麻烦事,接下来为您介绍一种完全卸载方法,希望可以
- 使用Win10系统电脑的过程中,很多人都会选择使用系统自带的应用商店进行下载安装各种应用软件。但是有部分小伙伴的Win10系统电脑的应用商店
- 最近,小伙伴对计算机的win10系统崩溃,无法接通电源进入系统进行修复。我们该怎么办事实上,我们可以下载新的系统并使用u盘进行安装。今天,边
- Win10电脑更新系统之后变得非常慢怎么解决?许多用户在使用Win10系统的时候,只要系统推送系统就会进行更新。而最近有小伙伴更新系统之后发
- 首先假设某公司有一个员工记录数据。现在需要将它导入到Word一个预制样式的表格中。 切换到“邮件”选项卡,点击“
- 如果我们的计算机安装了win10操作系统,当系统蓝屏在使用过程中无法正常使用时,小编认为可能是由于计算机驱动程序的问题,或者我们系统的版本没
- 根据我所了解到的消息,微软在1月14日再次发布了win10操作系统的相关更新。因此,此次升级除了增加了一些常用的小功能外,还对当前的操作系统
- 电脑使用时间久了,难免出现一些问题,比如常见的电脑蓝屏,黑屏,电脑无法开机等等。很多用户遇到这些情况都不知道如何解决,如果觉得重装系统麻烦又
- 在距离上次发布 14 天后的今天,苹果给大家推送了iOS15.6 Beta 4更新!在 iOS16还不稳定的情况下,苹果也算是有“良心”了,
- 时隔三天后,苹果公司又向果粉们推送了 iOS 15.6 RC2 更新,版本号也由 19G69 变了 19G71。一般来说,苹果很少会发布 R
- 相信有了解的朋友都清楚,电脑中的一些问题必须打开系统内的本地组策略编辑器进行相关的操作,才能得到解决!那么,Win10 1909系统本地组策
- 浏览器因为内核以及版本的不同,在用户浏览网页的时候,可能会出现不兼容,导致网页无法打开。如果想更好的体验浏览,就需要把浏览器改成兼容模式,那
- win10系统中的edge浏览器虽好用但是兼容性方面令人不大满意,如何设置兼容性,具体又要在哪里进行设置?下面就一起来看看详细方法吧。edg
- 本地账户是工作在本地计算机上的,只有系统管理员才能在本地创建用户账户。那用户升级到Win10 21H1系统后要怎么创建本地账户呢?下面就跟着