WPS如何实现多个表格数据统一合并操作教学
发布时间：2023-01-24 04:44:19
WPS如何实现多个表格数据统一合并操作教学分享。我们在操作WPS文件的时候，有的时候建立了多个表格文件，后续想要将这些文件进行统一合并到同一个表格中，那么这个操作如何实现，一起看看具体的操作方法吧。
用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表数据合并后的结果。效果如图所示。
0
投稿猜你喜欢
欢迎观看 Microsoft Excel 教程，小编带大家学习 Microsoft Excel 的使用技巧，了解如何在 Excel 图表中添- 今天跟大家分享一下如何在WPS excel表格中同时冻结多行多列。应用案例下图工作表中，由于行数和列数比较多，我们要向下或向右翻动页面才能看
- 我们用wps表格编辑软件制作表格数据时，最担心的就是怕数据被人为误删和被修改。我们只有将wps表格设置密码，让表格变成只读模式，要修改编辑表
- excel 2013 直方图制作教程：直方图制作步骤1：如图所示，选中数据区域——点击插入——推荐的图表——簇状柱形图。直方图制作步骤2：通
- 复选框最大的好处是可以同时勾选多个选项，那如何插入复选框呢？下面给大家介绍一下一、添加【插入控件】1.点击【快速访问工具栏】按钮
- 微软在周一发布了一项测试版的Office 2016，这是针对Mac版本的一次更新，微软表示将有大量的新功能在未来几周进行更新，新版Offic
- 许多用户在使用电脑的时候，都会使用到打印机，但是不少用户在使用的时候，基本都是很多用户在使用同一个打印机，也就是我们说的共享打印机。但是不少
- 欢迎观看indesign教程，小编带大家学习 InDesign 的基本工具和使用技巧，了解如何使用选择工具、属性面板和变换工具来变换内容。在
- iPhone 能够利用 AIrPlay 将画面、影片、音乐投影到 Mac 播放是 iOS15、iPadOS 15 与 macOS 12 最新
- Win7操作系统的运用中鼠标突然失效了，桌面上的图标一点反应也没有，这是由于资源管理器当机无响应引起的，只需重启资源管理器就可解决了，下面是
- 有时候我们要在Excel的表格上，标记比较重要的内容，会选择应用空心椭圆。所谓的空心椭圆，其实就是画一个椭圆，并设置成空心。可是刚入行的新手
- Win11系统没有声卡驱动如何解决？现在很多用户都升级Win11系统了，最近有些朋友在升级更新win11系统之后，发现电脑没有声音，检查后才
- 有时我们在word2003制作表格时为了让表格显得更为美观，也有时为了突出部分内容，这时就有必要对表格及表格单元格设置底纹背景颜色，word
- Windows 10 Build 10240已经被签署为RTM正式版，但是微软今天对国外媒体表示，Windows 10身上并没有RTM、Go
- 3月12日消息，微软发布了最新的Win11预览版，版本 为22572.100，此次更新此更新不包含任何新内容，旨在测试我们在开发频道中构建的
- 会议是统一步调迈向理想目标的工具，会议中更快更有效地达成共识，不仅可以为公司节省许多成本，还可以为工作人员节省时间。无论是大公司还是小公司，
- 地平线4这款赛车游戏因为众多的游戏场景和种类丰富的赛车受到了众多游戏玩家的欢迎，但是使用Win7系统的小伙伴也想玩这款游戏就想要知道自己的电
- Tab键一直是键盘上“不起眼”的一个按键，平时很多人可能不会去碰触这个键。实际上，它有很多实用的功能，如果用好了，可以大大提高我们的操作效率
- 前天IT之家开始试运营了，昨天新的Win8之家也开始发布文章，今天呢？今天，Win8学院开通了，毕竟不能只发新闻什么，还要发些有营养的。当W
- Mac imovie剪辑完后怎么保存？imovie是非常不错的一个视频剪辑工具，我们可以导入自己拍摄的视频，通过这个软件来进行内容的剪辑，制
