Question

wps表格怎么将一个文件里的很多个工作表的名字汇总到一个工作表里面

只有一个wps表格文件，从第二个工作表开始有很多名字不同的工作表，请问怎么将这些工作表的名称，汇总一个第一个工作表里，就是如下效果！因为很多很多工作表，所以不能一个一个自己写，求公式！！求方法！！谢谢！！

另外，我后面工作表的每一个单元格的数量和格式都是一模一样的，会有一些数据，请问，怎样在汇总表里面 合计汇总 后面所有工作表里对应表格的所有数据！！
也就是怎样把多个工作表中特定的单元格汇总到另一个工作表里面！
不知道我有没有表达清楚，谢谢！！！
请给予回复，敬候，谢谢！！

Answer 1

如下图，一个工作薄中包含多个工作表，第一个工作表制作目录，在目录工作表中点击“公式”选项卡，选择“名称管理器”，将“=GET.WORKBOOK(1)”定义一个名称，本例定义成了“目录”，在B3单元格中输入公式=IFERROR(MID(INDEX(目录,ROW(A2)),FIND("]",INDEX(目录,ROW(A2)))+1,99),"")，下拉公式即可。

Answer 2

这个我真不会，但是我看到搜狗上一个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

追问

谢谢，我也看了，不懂！

追答

哎。。那估计就只能一个一个复制了吧，其实你只有五个也不多，EXCEL一会就搞定啦。现在EXCEL功能虽然很强大，但是毕竟不可能那么完美啦。。。

追问

不是的，有很多很多个，这只是为了提问临时做的，谢谢！

Answer 3

VBA可以不？

追问

可是我不会，求步骤！

追答

你能在excel里面打开表格么？
名字汇总代码，按住ALT+F11 双击sheet1，粘贴进去，按F5，前提在excel中打开
Sub t()
For i = 2 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
内容汇总，没有看到你的表格，不知道怎么编写

追问

请问，可不可留个邮箱，我发你，帮我弄弄，

追答

147838534Q邮箱

追问

非常感谢，我发了，谢谢！！