几个表的wps数据合并

在wps中，当几个表合并时，我们需要将多个excel表放在同一个文件夹中，并在这个文件夹中创建一个新的excel。如图所示：

用microsoft excel打开新创建的excel表格，右键单击sheet1，找到“查看代码”，然后单击它。进入后，会看到宏计算界面。如图所示：

然后我们复制下面的宏计算代码，在工具栏的“运行”下找到“运行子流程/用户表单”。代码如下，如图所示：

子合并当前目录中所有工作簿的所有工作表()。

暗淡我的路径，我的名字，AWbName

将WbN作为工作簿，WBn作为字符串

一样长

模糊数字一样长

将方框变暗为字符串

申请。屏幕更新=假

MyPath=活动工作簿。小路

MyName=Dir(我的路径“\”*。xls”)

AWbName=ActiveWorkbook。名字

Num=0

当我的名字""

如果我的名字是一个名字，那么

设置Wb=工作簿。打开(我的路径“\”我的名字)

Num=Num 1

使用工作簿(1)。活性纸。单元格(。范围(“B65536”)。结束(xlUp)。行2，1)=左(我的名字，伦(我的名字)4)

对于G=1至表。数数

Wb。纸张(克)。使用范围。复制。单元格(。范围(“B65536”)。结束(xlUp)。第1行，第1行)

然后

WbN=WbN Chr(13) Wb。名字

Wb。关闭假

以…结尾

如果…就会结束

我的名字=目录

环

范围(“B1”)。挑选

申请。屏幕更新=真

MsgBox“合并”了“Num”工作簿下的所有工作表。如下：“Chr(13) WbN，vbInformation，“提示”。

末端接头

手术后，等待10秒左右。操作完成后，即合并完成后，会有提示。只需点击确定。看合并后的数据，有5000多行，是17张excel表格的数据合并到同一个文件夹的结果。效果如图所示。