如何快速把多个excel表合并成一个excel表
很多朋友会遇到这样的问题,就是很有很多页的数据,少的有几十页,多的可能有几百页,然后需要合并到一个页面做数据分析,如果一页页的复制粘贴的话,就比较麻烦。下面我就介绍一种利用Excel的宏计算来解决这个问题,有需要的朋友可以参考一下哦,希望能对大家有所帮助。
操作方法
(01)在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。
(02)按Alt+F11进入VBA代码编辑和调试界面。
(03)在工具栏中找到插入,点击插入,选择模块。
(04)将下述代码粘贴到模块空白处:复制代码代码如下: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 = layAlerts = FalseWorksheets("合并汇总表")teSet wsNewWorksheet = (, after:=Worksheets(t)) = "合并汇总表"MyFileName = penFilename("Excel工作薄 (**),**")If MyFileName = "False" ThenMsgBox "没有选择文件!请重新选择一个被合并文件!", vbInformation, "取消" Filename:=MyFileNameNum = tMyName = Set DataSource = tBox(prompt:="请选择要合并的数据区域:", Type:=8)AddressAll = e(AddressAll)ctSourceDataRows = tSourceDataColumns = enUpdating = leEvents = FalseFor i = 1 To ts(i)ts(i)e(AddressAll)ActiveSheetName = Workbooks()ts("合并汇总表")ts("合并汇总表")e("A" & DataRows)e = ts("合并汇总表")e(Cells(DataRows, 2), Cells(DataRows, 2))eSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=eSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName)vateNext enUpdating = leEvents = TrueEnd IfWorkbooks(MyName)eEnd Sub
(05)找到工具栏的“开发工具”,点击“插入”,找到表单控件里的窗体控件,在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
(06)点击“首页”工作表中插入的按钮,根据提示,浏览到原始数据工作簿。
(07)用鼠标选择要合并的数据范围,点击确定按钮,合成成功。
-
怎么制定变更管理制度
在单位生产与运营中,市场会涉及到人员、计划、方案、技术、工艺、设计、设备、场所等相关方面的变更情况,因而要进行提前的疏导与应对措施,以不至于影响到工作及生产任务,同时也亟待有相对应的制度进行规范与约束管理。现就为大家介绍一下,关于怎么制定变更管理制度...
-
简单的蔬菜立体摆盘方法
现在越来越多人由于工作太忙,生活的比较粗心,只要每天三餐吃的饱就可以了,其实,静下来,我们可以把生活过的稍微精致一点,摆盘就是第一步。操作方法(01)首先准备好蔬菜。(02)黄瓜切开。(03)切口,切六个,要平均分。(04)胡萝卜切片。(05)胡萝卜夹到黄瓜里。(06)黄瓜切薄片。(07)在胡萝卜...
-
新手如何经营服装店
如何成功经营一家服装店,这是很多服装店主都在面临的难题,对于新人来说,这更是一个深奥难懂的谜题。其实,想要经营好一家服装店,服装店主不仅要掌握服装的货源信息,还需要学习一点服装的营销知识,最重要的是要做三件事。这三件事是服装店的三大支柱,缺一不可。下面,就为...
-
竞选演讲稿怎么写
公开选拔,竞争上岗是任用干部的重要方式。在竞职演讲中,演讲的成功与失败对竞职有着直接的影响,而演讲的成功,首先要有一篇好的演讲稿,那么,竞选演讲稿该如何写呢?请看操作方法(01)写好开场白:一个好的开头,能马上镇住听众,使之产生兴趣及好感。(02)抓住主体部分:这是演讲稿的...