以WPS 2019版本为例：
如需把excel工作簿内多个子表格怎么全部合并成一张整的表格，可使用WPS2019中已自带的「文档拆分合并」功能：
操作步骤：
1）打开其中一份「表格（Excel）」文档；
2）点击「特色应用-拆分合并-合并」；
3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。
温馨提示：内容为网友见解，仅供参考
第1个回答 2019-10-10
之前也有网友提出类似的问题，我做过大代码再次发一下，请测试。
Sub 表格合并()
Dim sBook As Workbook
Dim sGs As Integer
Dim TSheet As Worksheet
Dim sSheet As Worksheet
Dim Hh As Long, Hs As Integer
Dim myRange As Range
Set sBook = ActiveWorkbook
sBook.Sheets(1).Select
Sheets.Add ‘插入一个新的工作表
Hh = 1
Set TSheet = sBook.Sheets(1)
For i = 2 To sBook.Sheets.Count
Set sSheet = sBook.Sheets(i)
Set myRange = sSheet.UsedRange
Hs = myRange.Rows.Count ‘记录有多少行数
myRange.Copy
TSheet.Select
Cells(Hh, 1).Select
ActiveSheet.Paste
Hh = Hh + Hs
Next i
End Sub
Sub 表格合并()
Dim sBook As Workbook
Dim sGs As Integer
Dim TSheet As Worksheet
Dim sSheet As Worksheet
Dim Hh As Long, Hs As Integer
Dim myRange As Range
Set sBook = ActiveWorkbook
sBook.Sheets(1).Select
Sheets.Add ‘插入一个新的工作表
Hh = 1
Set TSheet = sBook.Sheets(1)
For i = 2 To sBook.Sheets.Count
Set sSheet = sBook.Sheets(i)
Set myRange = sSheet.UsedRange
Hs = myRange.Rows.Count ‘记录有多少行数
myRange.Copy
TSheet.Select
Cells(Hh, 1).Select
ActiveSheet.Paste
Hh = Hh + Hs
Next i
End Sub
第2个回答 2019-10-09
选定全部工作表，另存为PDF，用word打开PDF，再另存为TXT文件，完成合并，txt再复制到EXCEL中。感觉能行
第3个回答 2019-10-09
你说的“合并后不影响原来的数据”--- 比如说第一个表中 B2单元格中有数据，别的表格B2单元格中也有数据，怎么处理呢？
总之，只要逻辑上没问题，都可以解决，当然了，编一个程序是必须的追问
总之，只要逻辑上没问题，都可以解决，当然了，编一个程序是必须的追问
原来的一张表格拆分成这样子的，所以在同一个位置没有重复数据！
追答编程思路：
1、打开工作簿，
2、遍历所有SHEET
3、将SHEET中的数据范围内的数据合部取出来，写到汇总表相同位置，（分为单元格有数据，和无数据两种情况，某个SHEET中的某个单元格有数据，则取出来，并汇总，如果单元格无数据则跳过）
4、OK
第4个回答 2019-10-09
这些表格的行列数据地址是完全不同的吗？比如：第一张表是A1:B3,第二张：C1：D9，第三张是：A10：B12，即它们之间互相不交集？追问
由一张整的表格拆分成现在的样子（图示），所以在同一位置没有重复数据。
相似回答
