原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
excel如何快速把多个工作表合并到个excel表
excel如何快速把多个工作表合并到一个excel表
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。
工具/原料
Excel
操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示，插入一个模块。
5、将下述代码粘贴到模块空白处：
复制代码
代码如下:
Sub CombineSheetsCells() Dim wsNewWorksheet As Worksheet Dim cel As Range Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant Dim TitleRow, TitleColumn As Range Dim Num As Integer Dim DataRows As Long DataRows = 1 Dim TitleArr() Dim Choice Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$ Dim n, i n = 1 i = 1 Application.DisplayAlerts = False Worksheets(合并汇总表).Delete Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count)) wsNewWorksheet.Name = 合并汇总表 MyFileName = Application.GetOpenFilename(Excel工作薄 (*.xls*),*.xls*) If MyFileName = False Then MsgBox 没有选择文件！请重新选择一个被合并文件！, vbInformation, 取消 Else Workbooks.Open Filename:=MyFileName Num = ActiveWorkbook.Sheets.Count MyName = ActiveWorkbook.Name Set DataSource = Application.InputBox(prompt:=请选择要合并的数据区域：, Type:=8) AddressAll = DataSource.Address ActiveWorkbook.ActiveSheet.Range(AddressAll).Select SourceDataRows = Selection.Rows.Count SourceDataColumns = Selection.Columns.Count Application.ScreenUpdating = False Application.EnableEvents = False For i = 1 To Num ActiveWorkbook.Sheets(i).Activate ActiveWorkbook.Sheets(i).Range(AddressAll).Select Selection.Copy ActiveSheetName = ActiveWorkbook.ActiveSheet.Name Workbooks(ThisWorkbook.Name).Activate ActiveWorkbook.Sheets(合并汇总表).Select ActiveWorkbook.Sheets(合并汇总表).Range(A DataRows).Value = ActiveSheetName ActiveWorkbook.Sheets(合并汇总表).Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selecti
文档评论（0）