作者：乔山办公网日期：
返回目录：excel表格制作
以WPS 2019版本为例：zd
关于WPS表格合并多个工作簿，您可使用WPS参考下述步骤完成操作：
1.打开表内格文件，点击【数据-合并表格】
2.选择添加需合并的文档-开始合并；
3.合并完成容后，被合并的工作簿将会变为多个「工作表」存在于一个「工作簿」内。
以抄WPS 2019版本为例：
关于excel一个工作簿中有多个工作表怎么合并数据，您可使用WPS参考下述步骤完成操作：
1、打百开「表格（Excel）」文档；
2、点击「数据-合并度表格-多个工作表合并成一个问工作表」；
3、勾选需合并的工答作表即可。
提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。
之前也有网e79fa5e98193e58685e5aeb9332友提出类似的问题，我做过大代码再次发一下，请测试。
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