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、在整合后的工作表里面排序、筛选、求和。