收藏 分销(赏)

excel如何快速把多个工作表合并到一个excel表优质资料.doc

上传人:二*** 文档编号:4518975 上传时间:2024-09-26 格式:DOC 页数:17 大小:1.51MB 下载积分:5 金币
下载 相关 举报
excel如何快速把多个工作表合并到一个excel表优质资料.doc_第1页
第1页 / 共17页
本文档共17页,全文阅读请下载到手机保存,查看更方便
资源描述
excel如何快速把多个工作表合并到一个excel表优质资料 (可以直接使用,可编辑 优质资料,欢迎下载) excel如何快速把多个工作表合并到一个excel表 有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想快速的把这些excel合并在一起,意思在合并在一个excel页面,这样可以方便我们分析和统计,那么excel如何快速把多个工作表合并到一个excel表?下面为大家介绍这种方法,希望能帮助到大家。 工具/原料 Excel 操作步骤: 1、原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据。 2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。 3、按Alt+F11进入VBA代码编辑和调试界面。 4、根据下图提示,插入一个模块。 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 = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件!请重新选择一个被合并文件!", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域:", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub 6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。 7、点击“首页”工作表中插入的按钮,根据提示,浏览到原始数据工作簿。 8、下一步,用鼠标选择要合并的数据范围。 注意:每个工作表数据可能不一样,比如说有的是10行数据,有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围,比如说A1:D100,保证比最多行数的工作表数据还多就可以,一会再删除空行。 9、点击确定按钮,待代码运行完毕后,所有的数据就都合并到了“合并汇总表”中。 注意: 1)A列的文本说明右侧的数据来自于原始数据表的哪个工作表; 2)数据之间会有一些空行,下面通过筛选删除。 10、选中全部数据区域,执行自动筛选。然后选择其中一个字段,选择“空白”和标题内容。 11、然后将筛选出来的无用行鼠标右键删除,再删除A列整列即可,完成效果如下图: END 如何将一份excel文件所有工作表单独拆分开来 首先打开该excel文件,键盘快捷键:“Alt+F11” 会自动弹出Visual Basic: 然后双击一个工作表 把一下代码复制进去,代码如下: Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub 复制完之后点工具栏上的运行就OK了! excel表格如何快速筛选重复数据 excel表格大家经常用到,工作中经常要使用其删除重复行数据,将一些重复内容屏蔽和删除。 1、 准备一些数据,下面只是一些简单的数据量,开始筛选功能。 2、 选中需要查找重复内容的数据,开始à条件格式->-突出显示单元格规则->-重复值。 3、 对话框,选择重复值之后,弹出对话框,是让选择突出显示的颜色。默认是粉红色的突出显示的。 4、 显示结果,选中区域有重复性的会突出显示为粉红色。 5、 删除重复行内容,击菜单开始à排序和筛选->-筛选,添加表头筛选内容。 6、 筛选,按照颜色筛选,选择粉红色,如果想显示不重复的,那么选择无填充的选项。 7、 删除,将筛选出来的结果删除。如果需要保留,可以先将数据进行备份,然后再执行删除操作。 8、 其他
展开阅读全文

开通  VIP会员、SVIP会员  优惠大
下载10份以上建议开通VIP会员
下载20份以上建议开通SVIP会员


开通VIP      成为共赢上传

当前位置:首页 > 通信科技 > 计算机应用

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2025 宁波自信网络信息技术有限公司  版权所有

客服电话:4009-655-100  投诉/维权电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服