-
1.wps表格怎么将一个文件里的很多个工作表的名字汇总到一个工作表里面
这个我真不会，但是我看到搜狗上一个IT大神给了办法，你可以试试//*此宏用于合并同一工作簿内的所有工作表！
打开你的工作簿，按下alt+F11，插入-模块，看见一个模块1，复制下面的的内容，然后运行。
你的 工具-宏-安全性，设置为中，才能运行此宏。
按照提示做就可以了。注意：如果工作表很多可能需要很长时间，请耐心等待！
*//
==========以下是宏===============
Sub 合并各工作表内容（）
sp = InputBox（"各表内容之间，间隔几行？不输则默认为0"）
If sp = "" Then
sp = 0
End If
st = InputBox（"各表从第几行开始合并？不输则默认为2"）
If st = "" Then
st = 2
End If
Sheets(1).Select
Sheets.Add
If st > 1 Then
Sheets(2).Select
Rows("1:" & CStr(st - 1)).Select
Selection.Copy
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste
y = st - 1
End If
For i = 2 To Sheets.Count
Sheets(i).Select
For v = 1 To 256
zd = Cells(65535, v).End(xlUp).Row
If zd > x Then
x = zd
End If
Next v
If y + x - st + 1 + sp > 65536 Then
MsgBox "内容太多，仅合并前" & i - 2 &； "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"
Else:
Rows(st & ":" & x).Select
Selection.Copy
Sheets(1).Select
Range("A" & CStr(y + 1)).Select
ActiveSheet.Paste
Sheets(i).Select
Range("A1").Select
Application.CutCopyMode = False
End If
y = y + x - st + 1 + sp
x = 0
Next i
Sheets(1).Select
Range("A1").Select
MsgBox "这就是合并后的表，请命名！"
End Sub
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、在整合后的工作表里面排序、筛选、求和。
