将WPS表格中各工作表汇总(把多个WPS表格汇总到一个表格里)

1.把多个WPS表格汇总到一个表格里

题主,问的是不是不同的表格,比如表格1.xlsx,表格2.xlsx,表格3.xlsx,然后把这个三个汇总成:表格123.xlsx,对吧?还是一个.xlsx表格文件里面不同的sheet,比如sheet1,sheet2,sheet3?下面让我分别针对以上两种情况来回答您1.我们先建立三个表格,并全部打开2.三个表格内,默认都有三个sheet,分别为sheet1,sheet2,sheet3我们命名:表格的分别,1,2,3;表格2的分别4,5,6;表格3的分别为7,8,9重命名操作,自己试试即可,不在此演示了。

3.把表格2中4,5,6和表格3中的7,8,9全部移动表格1中,选中表格2中的4,然后鼠标右键4.点击“移动或复制工作表”5.选中移入表格,移入位置,建立副本否,请直接看图哦!6.点击“确定”以后,去表格1中查看4,去表格2中查看4的副本我们可以看到,表格1中的最后已经有4了,表格2中的4依然存在,其他页面的移动或者复制,同理希望题主能够自己操作一遍,非常简单的哦!全部sheet移动到一个表格文件以后,就可以保存为一个表格文件.xlsx了,不用再保存多个文件了另外需要注意的是:注意“勾选”建立副本不知道能否帮助到题主,这可都是我亲自截图弄的哦。

2.wps多工作表的数据如何汇总

这个是用Excel的方法,WPS不知道能不能用,可以试试

1、新建一个工作表

2、Alt+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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("A1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub

3、在整合后的工作表里面排序、筛选、求和。

如何将WPS表格中各工作表汇总

推荐阅读