您好,今天帅帅来为大家解答以上的问题。wps多个工作簿合并到一张表格，wps多个工作簿合并相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、操作步骤：原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
3、3、按Alt+F11进入VBA代码编辑和调试界面。
4、4、根据下图提示，插入一个模块。
5、5、将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1***.displayalerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = ***.add(, after:=Worksheets(***.count))***.name = "合并汇总表"MyFileName = ***.getopenfilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"Else***.open Filename:=MyFileNameNum = ***.sheets.CountMyName = ***.nameSet DataSource = ***.inputbox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = ***.addressactiveworkbook.***.range(AddressAll).SelectSourceDataRows = selection.***.countSourceDataColumns = selection.***.count***.screenupdating = False***.enableevents = FalseFor i = 1 To Num***.sheets(i).Activate***.sheets(i).Range(AddressAll).Select***.copyActiveSheetName = activeworkbook.***.nameWorkbooks(***.name).Activate***.sheets("合并汇总表").Select***.sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetName***.sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select***.pastespecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=False***.pastespecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False***.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext i***.screenupdating = True***.enableevents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
6、7、点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。
7、8、下一步，用鼠标选择要合并的数据范围。
8、注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。
9、在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
10、9、点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。
11、注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。
12、10、选中全部数据区域，执行自动筛选。
13、然后选择其中一个字段，选择“空白”和标题内容。
14、1然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：。
本文就为大家分享到这里，希望小伙伴们会喜欢。