如何快速把多个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)用鼠标选择要合并的数据范围,点击确定按钮,合成成功。
-
公共场所卫生许可证办理
依据《公共场所卫生管理条例》,应办理卫生许可证的公共场所有:(一)宾馆、饭馆、旅店、招待所、车马店、咖啡馆、酒吧、茶座;(二)公共浴室、理发店、美容店;(三)影剧院、录像厅(室)、游艺厅(室)、(歌)舞厅、音乐厅;(四)体育场(馆)、游泳场(馆)、公园;(五)展览馆、博物馆、美术馆、图书馆;(六...
-
苹果Mac电脑如何快速返回桌面
windows系统电脑都有快捷键可以一键返回桌面,或者任务栏右下角都可以返回桌面,但苹果mac电脑的快捷键或者用触摸板滑动会麻烦一些。那么有没有一种最方便的方法,鼠标指针直接移到某个位置,就可以快速返回桌面呢操作方法(01)从启动台中找到“系统偏好设置”,并打开;(02)选...
-
低压电工实际操作,三相电机的正反转控制
低压电工实际操作的一项重要项目:三相电机的正反转控制。想实现电机的正反转,只需要对调三相电源的两根线路就可以实现。这样控制电路需要两个交流接触器来实现,电机的电源的相序切换。为了实现互锁和将接触器的常闭触点串接到电路中。操作方法(01)看懂原理图:分为主...
-
如何跳出舒适圈
人们这么努力工作,就是为了生活过得舒适。所谓苦尽甘来,就是这个意思。不过,在实现大目标的过程中,每完成一个阶段小目标,我们的生活就会改善一些,精神也会满足一些,即生活暂时处于舒适状态。那么,留恋片刻后,如果再不及时跳出安乐窝,勇攀高峰,那就无异于温水煮娃。然而,就...